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.450 by h677, Sat Oct 2 18:37:38 2004 UTC revision 1.450.2.2 by genyakun, Sun Oct 3 18:22:31 2004 UTC
# Line 11278  end; Line 11278  end;
11278    
11279  function TGikoForm.SaveTabURLs : Boolean;  function TGikoForm.SaveTabURLs : Boolean;
11280  var  var
11281          SaveStringList: TStringList;          SaveStringList, BackStrList: TStringList;
11282  begin  begin
11283          SaveStringList := TStringList.Create;          SaveStringList := TStringList.Create;
11284            BackStrList := TStringList.Create;
11285    
11286            //バックアップ
11287            BackStrList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
11288            BackStrList.SaveToFile(ExtractFilePath(Application.ExeName) + '~tab.sav');
11289            BackStrList.Free;
11290            //バックアップを作る。
11291          try          try
11292                  Result := GetTabURLs(SaveStringList);                  Result := GetTabURLs(SaveStringList);
11293                    if not Result then begin
11294                     Exit; //逃げ
11295                    end;
11296                  SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav');                  SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
11297          finally          finally
11298                  SaveStringList.Free                  SaveStringList.Free;
11299          end;          end;
11300  end;  end;
11301    

Legend:
Removed from v.1.450  
changed lines
  Added in v.1.450.2.2

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