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

Don't error when file directory doesn't exist.

Browse Source 
Instead, ask for a new place to save to.
This commit is contained in:
Merlijn Wajer 2010-03-13 13:17:04 +01:00
parent 69899f58fa
commit 25fbd55694
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Projects/SAMufasaGUI/testunit.pas
View File

@ -2251,8 +2251,14 @@ begin
begin begin
Result := (ScriptFile <> ''); Result := (ScriptFile <> '');
if Result then if Result then
begin; begin
SynEdit.Lines.SaveToFile(ScriptFile); try
SynEdit.Lines.SaveToFile(ScriptFile);
except
mDebugLn('Cannot save the file. Try specifying a different location.');
result := SaveCurrentScriptAs;
exit;
end;
OnSaveScript(scriptfile); OnSaveScript(scriptfile);
end end
else else