diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-12 16:50:16 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-12 16:50:16 +0200 |
commit | 1075cf9922e03cb6d7c3f276363f20b62ecc4941 (patch) | |
tree | 7764ffcb1efdf569af9f6471696530577f24db10 /src/corelib/fpg_utils.pas | |
parent | cecd9a2dc172a73c5e0d9d9639102fd5cfe9dd41 (diff) | |
download | fpGUI-1075cf9922e03cb6d7c3f276363f20b62ecc4941.tar.xz |
overridden fpgForceDirectories() method implemented which handles OS encoding.
Diffstat (limited to 'src/corelib/fpg_utils.pas')
-rw-r--r-- | src/corelib/fpg_utils.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/corelib/fpg_utils.pas b/src/corelib/fpg_utils.pas index 0a0237c9..d4d7886c 100644 --- a/src/corelib/fpg_utils.pas +++ b/src/corelib/fpg_utils.pas @@ -56,6 +56,7 @@ function fpgExtractFileDir(const FileName: TfpgString): TfpgString; function fpgExtractFilePath(const FileName: TfpgString): TfpgString; function fpgExtractFileName(const FileName: TfpgString): TfpgString; function fpgExtractFileExt(const FileName: TfpgString): TfpgString; +function fpgForceDirectories(const ADirectory: TfpgString): Boolean; implementation @@ -144,6 +145,11 @@ begin Result := ExtractFileExt(fpgToOSEncoding(Filename)); end; +function fpgForceDirectories(const ADirectory: TfpgString): Boolean; +begin + Result := ForceDirectories(fpgToOSEncoding(ADirectory)); +end; + function fpgAppendPathDelim(const Path: TfpgString): TfpgString; begin if (Path <> '') and (Path[length(Path)] <> PathDelim) then |