moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -05:00
Code Issues Releases Wiki Activity

Catch the exception thrown if the Interpreters fail to initialise

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@496 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2010-01-28 18:22:45 +00:00
parent 81c123fd41
commit 276620c8d4
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
trunk/Projects/SAMufasaGUI/testunit.pas
View File

@ -535,10 +535,15 @@ begin
ScriptErrorLine:= -1; ScriptErrorLine:= -1;
CurrentSyncInfo.SyncMethod:= @Self.SafeCallThread; CurrentSyncInfo.SyncMethod:= @Self.SafeCallThread;
UseCPascal := LoadSettingDef('Settings/Interpreter/UseCPascal', 'True'); UseCPascal := LoadSettingDef('Settings/Interpreter/UseCPascal', 'True');
if lowercase(UseCPascal) = 'true' then try
ScriptThread := TCPThread.Create(True,@CurrentSyncInfo,PluginsPath) if lowercase(UseCPascal) = 'true' then
else ScriptThread := TCPThread.Create(True,@CurrentSyncInfo,PluginsPath)
ScriptThread := TPSThread.Create(True,@CurrentSyncInfo,PluginsPath); else
ScriptThread := TPSThread.Create(True,@CurrentSyncInfo,PluginsPath);
except
writeln('Failed to initialise the library!');
Exit;
end;
{$IFNDEF TERMINALWRITELN} {$IFNDEF TERMINALWRITELN}
ScriptThread.SetDebug(@formWriteln); ScriptThread.SetDebug(@formWriteln);
ScriptThread.DebugMemo := Self.Memo1; ScriptThread.DebugMemo := Self.Memo1;