moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 16:55:01 -05:00
Code Issues Releases Wiki Activity

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

Browse Source
This commit is contained in:
Merlijn Wajer 2011-01-08 12:03:13 +01:00
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 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;