Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.110 by yoffy, Mon Nov 17 08:20:09 2003 UTC revision 1.111 by yoffy, Tue Nov 18 17:40:11 2003 UTC
# Line 6350  begin Line 6350  begin
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);
# Line 6368  begin Line 6369  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26