X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Fg_resources.pas;h=880b7275ed6ded678f95139c45db3fb15cc44dcd;hp=4d636eeadb9489df3ea81eebed7d85289c7c8495;hb=7e9341416173d0324e03b6e2f808dcc66ca0f771;hpb=67cddfbb3e682ca99f9b9a2e98e87332bd5c30be

diff --git a/src/editor/g_resources.pas b/src/editor/g_resources.pas
index 4d636ee..880b727 100644
--- a/src/editor/g_resources.pas
+++ b/src/editor/g_resources.pas
@@ -52,7 +52,11 @@ implementation
     f.RemoveResource(section, name);
     f.AddResource(data, len, name, section);
     if FileExists(wad) then
-      ASSERT(RenameFile(wad, wad + '.bak'));
+    begin
+      if FileExists(wad + '.bak') then
+        ASSERT(DeleteFile(wad + '.bak'));
+      ASSERT(RenameFile(wad, wad + '.bak'))
+    end;
     f.SaveTo(wad);
     f.Free;
     res := 0
@@ -115,7 +119,11 @@ implementation
     ts.Free;
 
     if FileExists(wad) then
-      ASSERT(RenameFile(wad, wad + '.bak'));
+    begin
+      if FileExists(wad + '.bak') then
+        ASSERT(DeleteFile(wad + '.bak'));
+      ASSERT(RenameFile(wad, wad + '.bak'))
+    end;
     ASSERT(RenameFile(tmp, wad));
     res := 0
   end;
@@ -201,7 +209,11 @@ implementation
     ts.Free;
 
     if FileExists(wad) then
-      ASSERT(RenameFile(wad, wad + '.bak'));
+    begin
+      if FileExists(wad + '.bak') then
+        ASSERT(DeleteFile(wad + '.bak'));
+      ASSERT(RenameFile(wad, wad + '.bak'))
+    end;
     ASSERT(RenameFile(tmp, wad));
     res := 0
   end;