Changeset 83 for trunk/Forms/UFormMain.pas

Timestamp:

Aug 4, 2017, 9:11:00 AM (7 years ago)

Author:

chronos

Message:

• Added: Show meaningful error message if target compiler or executor doesn't exist.

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -183 +183 @@
   SDoYouWantToSaveProject = 'There are unsaved changes in project. Do you want to save them?';
   SCloseProjectFirst = 'Project need to be closed before it can be openned';
+  SError = 'Error';
 
 { TFormMain }
@@ -482 +483 @@
 procedure TFormMain.AProgramCompileExecute(Sender: TObject);
 begin
-  with Core.CurrentTarget do begin
+  with Core.CurrentTarget do
+  try
     AProgramStop.Execute;
     SourceCode := FormSourceCode.MemoSource.Text;
@@ -492 +494 @@
     FormTargetCode.MemoTarget.Text := TargetCode;
     UpdateInterface;
+  except
+    on E: Exception do
+      MessageDlg(SError, E.Message, mtError, [mbOk], 0);
   end;
 end;