moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

Simba: small try .. except

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
begin
x := TStringList.Create;
x.LoadFromFile(SimbaForm.DefScriptPath);
result := x.Text;
try
x.LoadFromFile(SimbaForm.DefScriptPath);
except
mDebugLn('Couldn''t load default script file.');
end;
Result := x.Text;
end else
result := 'program new;'+LineEnding + 'begin'+LineEnding+'end.' + LineEnding;
end;