begin
Result := -1;
for i := 0 to Count - 1 do begin
- if Items[i].URL = URL then begin
+ if Pos( URL, Items[ i ].URL ) = 1 then begin
Result := i;
Exit;
end;
GikoSys.ReadSubjectFile( Self );
for i := Count - 1 downto 0 do begin
- if Pos( Items[ i ].URL, inURL ) = 1 then begin
+ if Pos( inURL, Items[ i ].URL ) = 1 then begin
Result := Items[ i ];
Exit;
end;
EXTERNAL_LOG_FOLDER + PATH_DELIM + host + PATH_DELIM + BBSID + PATH_DELIM + BBSKey + '.dat';
FileName := BBSKey + '.dat';
IsLogFile := FileExists( FilePath );
+ URL := GikoSys.Get2chBrowsableThreadURL( inURL );
end;
end else begin
// \83v\83\89\83O\83C\83\93\82É TThreadItem \82ª\8dì\90¬\82³\82ê\82½\82±\82Æ\82ð\93`\82¦\82é