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.6 by h677, Tue Aug 12 14:16:11 2003 UTC revision 1.7 by yoffy, Tue Aug 12 14:30:08 2003 UTC
# Line 18  uses Line 18  uses
18          GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,          GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,
19          Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,          Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,
20          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,          FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
21          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil;          HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
22            AbonUnit;
23    
24  type  type
25          TGikoTreeType = (gttNone, gtt2ch, gttHistory);          TGikoTreeType = (gttNone, gtt2ch, gttHistory);
# Line 5890  var Line 5891  var
5891          ThreadItem: TThreadItem;          ThreadItem: TThreadItem;
5892          Header: string;          Header: string;
5893          Body: string;          Body: string;
5894    
5895            Abonizer : TAbon;
5896  begin  begin
5897          try          try
5898                  if StNum > ToNum then begin                  if StNum > ToNum then begin
# Line 5915  begin Line 5918  begin
5918                                  end;                                  end;
5919                          end;                          end;
5920    
5921                            Abonizer := TAbon.Create;
5922                            Abonizer.Setroot( GikoSys.GetAppDir );
5923                            Abonizer.SetNGwordpath( 'NGword.txt' );
5924    
5925                          for i := StNum to ToNum do begin                          for i := StNum to ToNum do begin
5926                                  Line := i;                                  Line := i;
5927                                  FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat';                                  FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat';
5928                                  tmp := GikoSys.ReadThreadFile(FileName, Line);                                  tmp := GikoSys.ReadThreadFile(FileName, Line);
5929                                  if tmp <> '' then begin  
5930                                    if (tmp <> '') And (Not Abonizer.FindNGwords( tmp )) then begin
5931                                          Res := GikoSys.DivideStrLine(tmp);                                          Res := GikoSys.DivideStrLine(tmp);
5932    
5933                                          Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime;                                          Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime;
# Line 5937  begin Line 5945  begin
5945  //                                                      s := StringReplace(s, '@`', ',', [rfReplaceAll]);  //                                                      s := StringReplace(s, '@`', ',', [rfReplaceAll]);
5946                                  end;                                  end;
5947                          end;                          end;
5948    
5949                            Abonizer.Destroy;
5950                  end;                  end;
5951          finally          finally
5952          end;          end;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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