end;
if (sBoard <> '') and (sThread <> '') then begin
+ Board := BBS2ch.FindBBSID(sBoard);
+
//\8dÅ\91å10\83\8c\83X\82Ü\82Å\95\\8e¦
if StNum + 10 < ToNum then
ToNum := StNum + 10;
//\83^\83C\83g\83\8b\95\\8e¦
if Title then begin
- Board := BBS2ch.FindBBSID(sBoard);
if Board <> nil then begin
if not Board.IsThreadDatRead then
GikoSys.ReadSubjectFile(Board);
for i := StNum to ToNum do begin
Line := i;
- FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat';
+ FileName := ExtractFilePath( Board.GetSubjectFileName ) + sThread + '.dat';
tmp := GikoSys.ReadThreadFile(FileName, Line);
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin