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

Simba: small try .. except

Browse Source
This commit is contained in:
John P (Dgby714) 2011-01-08 05:53:17 -05:00
parent 8a7573fedd
commit 97790524d8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Projects/Simba/simbaunit.pas
View File

@ -1592,8 +1592,12 @@ begin
if FileExistsUTF8(SimbaForm.DefScriptPath) then if FileExistsUTF8(SimbaForm.DefScriptPath) then
begin begin
x := TStringList.Create; x := TStringList.Create;
x.LoadFromFile(SimbaForm.DefScriptPath); try
result := x.Text; x.LoadFromFile(SimbaForm.DefScriptPath);
except
mDebugLn('Couldn''t load default script file.');
end;
Result := x.Text;
end else end else
result := 'program new;'+LineEnding + 'begin'+LineEnding+'end.' + LineEnding; result := 'program new;'+LineEnding + 'begin'+LineEnding+'end.' + LineEnding;
end; end;