Commit: d037acf5e49a6f1e2c1f36914a46d84a3045f670 - gikonavi (git)

ギコナビ

Commit MetaInfo

• Revision: d037acf5e49a6f1e2c1f36914a46d84a3045f670 (tree)
• Time: 2009-05-24 21:37:06
• Author: h677 <h677>
• Commiter: h677

Log Message

お気に入りのファイルの置き換えタイミングの変更
一旦一時ファイルに出力した後に、バックアップファイルへの変更、
正式ファイル名への置き換えを実施するようにした。

Change Summary

• modified: Favorite.pas

Incremental Difference

--- a/Favorite.pas
+++ b/Favorite.pas
@@ -425,31 +425,47 @@ end;
 
 procedure TFavoriteDM.WriteFavorite;
 var
-	FileName, tmpFileName: string;
+	FileName, tmpFileName, bakFileName: string;
 	SaveList: TStringList;
-
+    Buffer: array[0..MAX_PATH] of Char;   // ƒoƒbƒtƒ@
+    FileRep : Boolean;
 begin
     FavoriteDM.Modified := true;
 	FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
-	if FileExists(FileName) then begin
-		tmpFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME;
-		if FileExists(tmpFileName) then
-			SysUtils.DeleteFile(tmpFileName); //SysUtils.‚ð‚‚¯‚È‚¢‚ÆWinAPI‚Æ‹æ•Ê‚Å‚«‚È‚¢‚Ì‚Å
-		RenameFile(FileName, tmpFileName);
-	end;
 	SaveList := TStringList.Create;
-	try
-		SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
-		SaveList.Add('<favorite>');
-		try
-			AddSaveString(TreeView.Items.GetFirstNode.getFirstChild, SaveList);
-		except
-		end;
-		SaveList.Add('</favorite>');
-		SaveList.SaveToFile(FileName);
-	finally
-		SaveList.Free;
-	end;
+    tmpFileName := '';
+    // ‘‚«ž‚Ý—pˆêŽžƒtƒ@ƒCƒ‹Žæ“¾
+    if GetTempFileName(PChar(GikoSys.GetConfigDir), PChar('fav'), 0, Buffer) <> 0 then begin
+        tmpFileName := Buffer;
+        try
+            try
+                SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
+                SaveList.Add('<favorite>');
+                AddSaveString(TreeView.Items.GetFirstNode.getFirstChild, SaveList);
+                SaveList.Add('</favorite>');
+                // ˆêŽžƒtƒ@ƒCƒ‹‚Æ‚µ‚Ä•Û‘¶
+                SaveList.SaveToFile(tmpFileName);
+                FileRep := True;
+                // ‘O‚̃tƒ@ƒCƒ‹‚ðˆÚ“®‚·‚é
+                if FileExists(FileName) then begin
+                    bakFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME;
+                    if FileExists(bakFileName) then begin
+                        FileRep := SysUtils.DeleteFile(bakFileName); //SysUtils.‚ð‚‚¯‚È‚¢‚ÆWinAPI‚Æ‹æ•Ê‚Å‚«‚È‚¢‚Ì‚Å
+                    end;
+                    if FileRep then begin
+                        FileRep := RenameFile(FileName, bakFileName);
+                    end;
+                end;
+                // ³‹K‚̃tƒ@ƒCƒ‹–¼‚ɃŠƒl[ƒ€‚·‚é
+                if FileRep then begin
+                    FileRep := RenameFile(tmpFileName, FileName);
+                end;
+            except
+            end;
+        finally
+            SaveList.Free;
+        end;
+    end;
 end;
 
 procedure TFavoriteDM.AddSaveString(Node: TTreeNode; SaveList: TStringList);