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.36 by yoffy, Tue Sep 2 13:36:24 2003 UTC revision 1.37 by h677, Tue Sep 2 14:52:56 2003 UTC
# Line 464  type Line 464  type
464      N41: TMenuItem;      N41: TMenuItem;
465      IndividualAbon2: TMenuItem;      IndividualAbon2: TMenuItem;
466      N42: TMenuItem;      N42: TMenuItem;
467        CancellIndividualAbon: TAction;
468                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
469                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
470                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 6053  begin Line 6054  begin
6054                                  FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat';                                  FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat';
6055                                  tmp := GikoSys.ReadThreadFile(FileName, Line);                                  tmp := GikoSys.ReadThreadFile(FileName, Line);
6056    
6057                                  if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp)) then begin                                  if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin
6058                                          Res := GikoSys.DivideStrLine(tmp);                                          Res := GikoSys.DivideStrLine(tmp);
6059    
6060                                          Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime;                                          Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime;

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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