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.515 by h677, Sat Jun 25 13:02:29 2005 UTC revision 1.515.2.2 by h677, Sat Jun 25 17:46:21 2005 UTC
# Line 2240  begin Line 2240  begin
2240          FavoriteDM.WriteFavorite;          FavoriteDM.WriteFavorite;
2241          FavoriteDM.Clear;          FavoriteDM.Clear;
2242    
2243            //板・スレ・PLUGINの破棄
2244            for i := Length(BoardGroups) - 1 downto 0 do begin
2245                    BoardGroups[i].Clear;
2246            end;
2247          //BBS破棄          //BBS破棄
2248          try          try
2249                  for i := Length( BBSs ) - 1 downto 0 do begin                  for i := Length( BBSs ) - 1 downto 0 do begin
# Line 2255  begin Line 2258  begin
2258    
2259          FTreeType := gttNone;          FTreeType := gttNone;
2260          //GikoSys.FBoardURLList.Clear;          //GikoSys.FBoardURLList.Clear;
2261          for i := Length(BoardGroups) - 1 downto 0 do begin  
2262                  BoardGroups[i].Clear;          //============ここから下で、再生================================//
2263          end;  
2264            // 外部板プラグインをロード(ReadBoardFile, LoadHistory より先に行うこと)
2265            InitializeBoardPlugIns;
2266    
2267          GikoSys.ListBoardFile;          //ボードファイル読込          GikoSys.ListBoardFile;          //ボードファイル読込
2268    
2269          // すべてのBBSを読み込んでおく          // すべてのBBSを読み込んでおく
# Line 8235  begin Line 8241  begin
8241                          else                          else
8242                                  Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime;                                  Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime;
8243    
8244                          Body := CustomStringReplace(Res.FBody, '<br> ', #10,true);                                                  Body := DeleteFontTag(Res.FBody);
8245                                                    Body := CustomStringReplace(Body, '<br> ', #10,true);
8246                          Body := CustomStringReplace(Body, '<br>', #10,true);                          Body := CustomStringReplace(Body, '<br>', #10,true);
8247                          Body := CustomStringReplace(Body, '</a>', '',true);                          Body := CustomStringReplace(Body, '</a>', '',true);
8248                          Body := GikoSys.DeleteLink(Body);                          Body := GikoSys.DeleteLink(Body);

Legend:
Removed from v.1.515  
changed lines
  Added in v.1.515.2.2

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