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