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

Simba: Fix funny name.

This commit is contained in:
Merlijn Wajer 2010-10-04 14:04:17 +02:00
parent d7784d4de1
commit bc243c0dc8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Projects/Simba/simbasettings.pas
View File

@ -35,7 +35,7 @@ type
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure SettingsTreeViewDblClick(Sender: TObject);
function LastStance: Boolean;
function FixSettingsFile: Boolean;
{ private declarations }
public
procedure SaveCurrent;
@ -55,7 +55,7 @@ uses LCLtype;
{ TSettingsForm }
function TSettingsForm.LastStance: Boolean;
function TSettingsForm.FixSettingsFile: Boolean;
begin
result := true;
mDebugLn('Could not load settings.xml!');
@ -92,7 +92,7 @@ begin
if not Settings.LoadFromXML(SimbaSettingsFile) then
begin
if not LastStance then
if not FixSettingsFile() then
begin
mDebugLn('Could not create, move or delete settings.xml.');
mDebugLn('***************** Giving up... ********************');