Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.41 by h677, Fri Aug 27 20:47:08 2004 UTC revision 1.42 by h677, Sun Aug 29 03:12:02 2004 UTC
# Line 446  begin Line 446  begin
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

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