diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-15 15:08:58 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-15 15:08:58 +0000 |
| commit | 04a50267a8bdccd0060a98f06000e7021c0b22c5 (patch) | |
| tree | 179a60acd92c7ecebae22450d7b58cd1ccc611ce /src | |
| parent | 14a625277b3425b8b05086771ba75c3c0b5e5666 (diff) | |
| download | fpGUI-04a50267a8bdccd0060a98f06000e7021c0b22c5.tar.xz | |
* Minor patch added extra checks.
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/gui_iniutils.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/gui/gui_iniutils.pas b/src/gui/gui_iniutils.pas index 34e85ba3..dd4087f1 100644 --- a/src/gui/gui_iniutils.pas +++ b/src/gui/gui_iniutils.pas @@ -79,7 +79,8 @@ begin if lDir = '' then lDir := GetAppConfigDir(False); - lDir := lDir + PathDelim; + if not (lDir[Length(lDir)] = PathDelim) then + lDir := lDir + PathDelim; { We used a non-Global config dir, so should be able to create the dir } if not ForceDirectories(lDir) then |