バックアップファイルを作成するようにした

diff --git a/RoundData.pas b/RoundData.pas
index 525c276..a492e3d 100644 (file)
--- 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
                //\83{\81[\83h\8f\84\89ñ\83t\83@\83C\83\8b\93Ç\82Ý\8d\9e\82Ý
                FileName := GikoSys.GetConfigDir + ROUND_BOARD_FILENAME;
-        //\83G\83\89\81[\8ds\95Û\91¶\83t\83@\83C\83\8b\93Ç\82Ý\8d\9e\82Ý
-        errorFileName := GikoSys.GetConfigDir + ERROR_BOARD_FILENAME;
+               bFileName := GikoSys.GetConfigDir + '~' + ROUND_BOARD_FILENAME;
+               //\83G\83\89\81[\8ds\95Û\91¶\83t\83@\83C\83\8b\93Ç\82Ý\8d\9e\82Ý
+               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);
+                       //\83o\83b\83N\83A\83b\83v\97p\82Ì\83t\83@\83C\83\8b\82ð\8dì\90¬\82·\82é
+                       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
                //\83X\83\8c\8f\84\89ñ\83t\83@\83C\83\8b\93Ç\82Ý\8d\9e\82Ý
                FileName := GikoSys.GetConfigDir + ROUND_ITEM_FILENAME;
-        //\83G\83\89\81[\8ds\95Û\91¶\83t\83@\83C\83\8b\93Ç\82Ý\8d\9e\82Ý
+               bFileName := GikoSys.GetConfigDir + '~' + ROUND_ITEM_FILENAME;
+               //\83G\83\89\81[\8ds\95Û\91¶\83t\83@\83C\83\8b\93Ç\82Ý\8d\9e\82Ý
         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