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.355 by genyakun, Mon Jul 12 01:08:22 2004 UTC revision 1.356 by genyakun, Mon Jul 12 01:16:43 2004 UTC
# Line 10661  var Line 10661  var
10661  begin  begin
10662          SaveStringList := TStringList.Create;          SaveStringList := TStringList.Create;
10663          SaveStringList := GetTabURLs;          SaveStringList := GetTabURLs;
10664          SaveStringList.SaveToFile('c:\Save.tab');          SaveStringList.SaveToFile(GikoSys.Setting.GetAppDir + 'tab.sav');
10665  end;  end;
10666    
10667  function TGikoForm.GetTabURLs : TStringList;  function TGikoForm.GetTabURLs : TStringList;
# Line 10687  var Line 10687  var
10687  begin  begin
10688      URLs := TStringList.Create();      URLs := TStringList.Create();
10689      try      try
10690          URLs.LoadFromFile('c:\Save.tab');          URLs.LoadFromFile(GikoSys.Setting.GetAppDir + 'tab.sav');
10691      except      except
10692          on EFOpenError do          on EFOpenError do
10693                  ShowMessage('タブが開けません');                  ShowMessage('タブが開けません');

Legend:
Removed from v.1.355  
changed lines
  Added in v.1.356

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