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