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.466 by h677, Tue Oct 19 15:19:34 2004 UTC revision 1.467 by genyakun, Wed Oct 20 03:51:07 2004 UTC
# Line 11267  begin Line 11267  begin
11267          SaveStringList := TStringList.Create;          SaveStringList := TStringList.Create;
11268          BackStrList := TStringList.Create;          BackStrList := TStringList.Create;
11269    
11270          //バックアップ          if FileExists(ExtractFilePath(Application.ExeName) + 'tab.sav') then begin
         BackStrList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav');  
         BackStrList.SaveToFile(ExtractFilePath(Application.ExeName) + '~tab.sav');  
         BackStrList.Free;  
11271          //バックアップを作る。          //バックアップを作る。
11272                    BackStrList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
11273                    BackStrList.SaveToFile(ExtractFilePath(Application.ExeName) + '~tab.sav');
11274                    BackStrList.Free;
11275            end;
11276            
11277          try          try
11278                  Result := GetTabURLs(SaveStringList);                  Result := GetTabURLs(SaveStringList);
11279                  if not Result then begin                  if not Result then begin

Legend:
Removed from v.1.466  
changed lines
  Added in v.1.467

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