Преглед изворни кода

Fix small logic error in zipping

Reinier Olislagers пре 11 година
родитељ
комит
4bbac2643a
1 измењених фајлова са 8 додато и 8 уклоњено
  1. 8 8
      backuprestore.pas

+ 8 - 8
backuprestore.pas

@@ -209,15 +209,15 @@ begin
         end;
       end;
 
-      try
-        if TempFile='' then
-          BackupFile:= UserFile // no zip files involved
-        else
-          {backup to temp, then zip later or
-          restore from temp file}
-          BackupFile:= TempFile;
+      if TempFile='' then
+        BackupFile:= UserFile // no zip files involved
+      else
+        {backup to temp, then zip later or
+        restore from temp file}
+        BackupFile:= TempFile;
 
-        AttachService;
+      AttachService;
+      try
         if cbOperation.ItemIndex = 0 then
           StartBackup
         else