Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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; |
| 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 |
|
|
|