From ef87526bdda394dff43fa3600a4c6936508e3791 Mon Sep 17 00:00:00 2001
From: basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 15 Aug 2015 01:23:56 +0000
Subject: *added try catch on UMain.Main for better overall error handling
 *added SetLogFileLevel and GetLogFileLevel for easier debugging (logging more
 to file) *if (LogFileLevel < LogLevel) then still do logging if important
 error message

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3117 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/ultrastardx.dpr | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'src/ultrastardx.dpr')

diff --git a/src/ultrastardx.dpr b/src/ultrastardx.dpr
index 0523f818..2280d4c6 100644
--- a/src/ultrastardx.dpr
+++ b/src/ultrastardx.dpr
@@ -350,7 +350,17 @@ uses
 
   SysUtils;
 
+const
+  sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF}
+               {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};
 begin
-  Main;
+  try
+    Main;
+  except
+    on E : Exception do
+    begin
+      ShowMessage('Exception class name = '+E.ClassName+sLineBreak+'Exception message = '+E.Message);
+    end;
+  end;
 end.
 
-- 
cgit v1.2.3