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

Merge branch 'Default.simba' of https://github.com/Dgby714/Simba into Dgby714-Default.simba

This commit is contained in:
Merlijn Wajer 2011-01-08 12:03:13 +01:00
parent e94691a912 97790524d8
commit a4c6d6e02c
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;