properly fail if the file is missing

samtrainers1 · Aug 30, 2017 · 7ee6e30 · 7ee6e30
1 parent 8bf47e3
commit 7ee6e30
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/Cheat Engine/frmExeTrainerGeneratorUnit.pas b/Cheat Engine/frmExeTrainerGeneratorUnit.pas
@@ -119,6 +119,8 @@ implementation
   rsDECOMPRESSOR = ' DECOMPRESSOR:';
   rsInvalidIcon = '(Invalid icon)';
   rsInvalidIconType = '(Invalid icon type)';
+  rsTrainerFileMissing = 'Copying %s.dat to %s failed. Please make sure the '
+    +'file still exists';
 
 procedure TfrmExeTrainerGenerator.FormActivate(Sender: TObject);
 begin
@@ -479,8 +481,13 @@ procedure TfrmExeTrainerGenerator.btnGenerateTrainerClick(Sender: TObject);
         end;
       end else raise exception.create(
         rsFailureOpeningTheTrainerForResourceUpdates);
-    end;
-    showmessage(rsTheTrainerHasBeenSuccessfullyGenerated);
+
+      showmessage(rsTheTrainerHasBeenSuccessfullyGenerated);
+    end
+    else
+      showMessage(Format(rsTrainerFileMissing, [cheatenginedir+basefile, filename]));
+
+
   finally
     if _archive<>nil then
       freeandnil(_archive);