Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 446 |
XMLDoc.SaveToFile(FileName); |
XMLDoc.SaveToFile(FileName); |
| 447 |
} |
} |
| 448 |
var |
var |
| 449 |
FileName: string; |
FileName, tmpFileName: string; |
| 450 |
SaveList: TStringList; |
SaveList: TStringList; |
| 451 |
|
|
| 452 |
begin |
begin |
| 453 |
FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME; |
FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME; |
| 454 |
MoveFile( PChar( FileName ), PChar( GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME ) ); |
if FileExists(FileName) then begin |
| 455 |
|
tmpFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME; |
| 456 |
|
if FileExists(tmpFileName) then |
| 457 |
|
SysUtils.DeleteFile(tmpFileName); //SysUtils.をつけないとWinAPIと区別できないので |
| 458 |
|
RenameFile(FileName, tmpFileName); |
| 459 |
|
end; |
| 460 |
SaveList := TStringList.Create; |
SaveList := TStringList.Create; |
| 461 |
try |
try |
| 462 |
SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>'); |
SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>'); |
|
|
Legend:
| Removed from v.1.41 |
|
| changed lines |
| |
Added in v.1.42 |
|
|
|