X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=RoundData.pas;fp=RoundData.pas;h=a492e3d02217d0e13ba2398bf4f95a46ef869eaf;hb=d6c8c371c7991bedc54bbd0ede869b0ea4a566a4;hp=525c2766e863ccfa98b95ba64b1a677c715147be;hpb=9efeb1d52f6d63ed4386460576e2c186bce63196;p=gikonavigoeson%2Fgikonavi.git

diff --git a/RoundData.pas b/RoundData.pas
index 525c276..a492e3d 100644
--- a/RoundData.pas
+++ b/RoundData.pas
@@ -329,24 +329,30 @@ procedure TRoundList.LoadRoundBoardFile;
 var
 	i: Integer;
 	sl: TStringList;
-	FileName: string;
-    errorSl: TStringList;
-    errorFileName: string;
+	FileName, bFileName: string;
+	errorSl: TStringList;
+	errorFileName: string;
 	Item: TRoundItem;
-    delCount: Integer;
+	delCount: Integer;
 begin
 	sl := TStringList.Create;
-    errorSl := TStringList.Create;
+	errorSl := TStringList.Create;
 	errorSl.Duplicates := dupIgnore;
 	try
 		//ƒ{[ƒh„‰ñƒtƒ@ƒCƒ‹“ǂݍž‚Ý
 		FileName := GikoSys.GetConfigDir + ROUND_BOARD_FILENAME;
-        //ƒGƒ‰[s•Û‘¶ƒtƒ@ƒCƒ‹“ǂݍž‚Ý
-        errorFileName := GikoSys.GetConfigDir + ERROR_BOARD_FILENAME;
+		bFileName := GikoSys.GetConfigDir + '~' + ROUND_BOARD_FILENAME;
+		//ƒGƒ‰[s•Û‘¶ƒtƒ@ƒCƒ‹“ǂݍž‚Ý
+		errorFileName := GikoSys.GetConfigDir + ERROR_BOARD_FILENAME;
+
 		if FileExists(FileName) then begin
 			sl.LoadFromFile(FileName);
-            if FileExists(errorFileName) then begin
-            	try
+			if FileExists(bFileName) then
+				DeleteFile(bFileName);
+			//ƒoƒbƒNƒAƒbƒv—p‚̃tƒ@ƒCƒ‹‚ðì¬‚·‚é
+			sl.SaveToFile(bFileName);
+			if FileExists(errorFileName) then begin
+				try
                 	errorSl.LoadFromFile(errorFileName);
                 except
                 end;
@@ -395,7 +401,7 @@ var
 	i: Integer;
 //    j: Integer;
 	sl: TStringList;
-	FileName: string;
+	FileName, bFileName: string;
     errorSl: TStringList;
     errorFileName: string;
 	Item: TRoundItem;
@@ -410,11 +416,15 @@ begin
 	try
 		//ƒXƒŒ„‰ñƒtƒ@ƒCƒ‹“ǂݍž‚Ý
 		FileName := GikoSys.GetConfigDir + ROUND_ITEM_FILENAME;
-        //ƒGƒ‰[s•Û‘¶ƒtƒ@ƒCƒ‹“ǂݍž‚Ý
+		bFileName := GikoSys.GetConfigDir + '~' + ROUND_ITEM_FILENAME;
+		//ƒGƒ‰[s•Û‘¶ƒtƒ@ƒCƒ‹“ǂݍž‚Ý
         errorFileName := GikoSys.GetConfigDir + ERROR_ITEM_FILENAME;
 		if FileExists(FileName) then begin
 			sl.LoadFromFile(FileName);
-            if FileExists(errorFileName) then begin
+			if FileExists(bFileName) then
+				DeleteFile(bFileName);
+			sl.SaveToFile(bFileName);
+			if FileExists(errorFileName) then begin
             	try
                 	errorSl.LoadFromFile(errorFileName);
                 except