diff options
| author | basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2015-08-15 01:23:56 +0000 |
|---|---|---|
| committer | basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2015-08-15 01:23:56 +0000 |
| commit | ef87526bdda394dff43fa3600a4c6936508e3791 (patch) | |
| tree | a97063cdc69a8b95eb0b37f6b6db70c4dcb017a7 /src/ultrastardx.dpr | |
| parent | 0beaaf7f95866304a9cde8f279ad0b0b25335e63 (diff) | |
| download | usdx-ef87526bdda394dff43fa3600a4c6936508e3791.tar.gz usdx-ef87526bdda394dff43fa3600a4c6936508e3791.tar.xz usdx-ef87526bdda394dff43fa3600a4c6936508e3791.zip | |
*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
Diffstat (limited to 'src/ultrastardx.dpr')
| -rw-r--r-- | src/ultrastardx.dpr | 12 |
1 files changed, 11 insertions, 1 deletions
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. |