Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 6350 |
end; |
end; |
| 6351 |
|
|
| 6352 |
if (sBoard <> '') and (sThread <> '') then begin |
if (sBoard <> '') and (sThread <> '') then begin |
| 6353 |
|
Board := BBS2ch.FindBBSID(sBoard); |
| 6354 |
|
|
| 6355 |
//最大10レスまで表示 |
//最大10レスまで表示 |
| 6356 |
if StNum + 10 < ToNum then |
if StNum + 10 < ToNum then |
| 6357 |
ToNum := StNum + 10; |
ToNum := StNum + 10; |
| 6358 |
|
|
| 6359 |
//タイトル表示 |
//タイトル表示 |
| 6360 |
if Title then begin |
if Title then begin |
|
Board := BBS2ch.FindBBSID(sBoard); |
|
| 6361 |
if Board <> nil then begin |
if Board <> nil then begin |
| 6362 |
if not Board.IsThreadDatRead then |
if not Board.IsThreadDatRead then |
| 6363 |
GikoSys.ReadSubjectFile(Board); |
GikoSys.ReadSubjectFile(Board); |
| 6369 |
|
|
| 6370 |
for i := StNum to ToNum do begin |
for i := StNum to ToNum do begin |
| 6371 |
Line := i; |
Line := i; |
| 6372 |
FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat'; |
FileName := ExtractFilePath( Board.GetSubjectFileName ) + sThread + '.dat'; |
| 6373 |
tmp := GikoSys.ReadThreadFile(FileName, Line); |
tmp := GikoSys.ReadThreadFile(FileName, Line); |
| 6374 |
|
|
| 6375 |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin |
if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin |
|
|
Legend:
| Removed from v.1.110 |
|
| changed lines |
| |
Added in v.1.111 |
|
|
|