Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.178 by h677, Tue Mar 15 16:23:11 2005 UTC revision 1.179 by h677, Fri Mar 18 13:39:48 2005 UTC
# Line 316  begin Line 316  begin
316          //テンポラリHTMLを削除          //テンポラリHTMLを削除
317          FileList := TStringList.Create;          FileList := TStringList.Create;
318          try          try
319            FileList.BeginUpdate;
320                  GetFileList(GetTempFolder, '*.html', FileList, False, True);                  GetFileList(GetTempFolder, '*.html', FileList, False, True);
321            FileList.EndUpdate;
322                  for i := 0 to FileList.Count - 1 do begin                  for i := 0 to FileList.Count - 1 do begin
323                          DeleteFile(FileList[i]);                          DeleteFile(FileList[i]);
324                  end;                  end;
# Line 546  begin Line 548  begin
548    
549          FileList := TStringList.Create;          FileList := TStringList.Create;
550          FileList.Sorted := True;          FileList.Sorted := True;
551        FileList.BeginUpdate;
552          TmpFileList := TStringList.Create;          TmpFileList := TStringList.Create;
553          TmpFileList.Sorted := True;          TmpFileList.Sorted := True;
554        TmpFileList.BeginUpdate;
555          //IsLogFile用DATファイルリスト          //IsLogFile用DATファイルリスト
556          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False);          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False);
557        FileList.EndUpdate;
558          //前回異常終了時用Tmpファイルリスト          //前回異常終了時用Tmpファイルリスト
559          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False);          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False);
560        TmpFileList.EndUpdate;
561        
562          // 重複を防ぐ          // 重複を防ぐ
563          Board.BeginUpdate;          Board.BeginUpdate;
564          Board.Sorted := True;          Board.Sorted := True;
# Line 799  begin Line 804  begin
804          TmpFileList := TStringList.Create;          TmpFileList := TStringList.Create;
805          TmpFileList.Sorted := true;          TmpFileList.Sorted := true;
806          try          try
807            TmpFileList.BeginUpdate;
808                  GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false);                  GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false);
809            TmpFileList.EndUpdate;
810                  sl.BeginUpdate;                  sl.BeginUpdate;
811                  sl.Add(FOLDER_INDEX_VERSION);                  sl.Add(FOLDER_INDEX_VERSION);
812    
# Line 3615  begin Line 3622  begin
3622          if DirectoryExists( GikoSys.Setting.GetBoardDir ) then begin          if DirectoryExists( GikoSys.Setting.GetBoardDir ) then begin
3623            BoardFileList := TStringList.Create;            BoardFileList := TStringList.Create;
3624            try            try
3625            BoardFileList.BeginUpdate;
3626                  GikoSys.GetFileList( GikoSys.Setting.GetBoardDir, '*', BoardFileList, True, True );                  GikoSys.GetFileList( GikoSys.Setting.GetBoardDir, '*', BoardFileList, True, True );
3627            BoardFileList.EndUpdate;
3628                  for k := BoardFileList.Count - 1 downto 0 do begin                  for k := BoardFileList.Count - 1 downto 0 do begin
3629                    if AnsiCompareText(ExtractFileExt(BoardFileList[ k ]), '.bak') = 0 then                    if AnsiCompareText(ExtractFileExt(BoardFileList[ k ]), '.bak') = 0 then
3630                            BoardFileList.Delete(k);                            BoardFileList.Delete(k);

Legend:
Removed from v.1.178  
changed lines
  Added in v.1.179

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