diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-11-23 22:52:46 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-11-23 22:52:46 +0200 |
commit | 4ffcceaf8744f8621e505f2a566f72b4f942f020 (patch) | |
tree | a1f7ce5cf077b5205a812640816520ac175c89a4 /src/corelib/fpg_utils.pas | |
parent | 482eb5e1a0b4a041f3cf417a826a4f07c0b4853e (diff) | |
download | fpGUI-4ffcceaf8744f8621e505f2a566f72b4f942f020.tar.xz |
Added implementation of fpgExtractFileName()
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 c583494e..ec22b478 100644 --- a/src/corelib/fpg_utils.pas +++ b/src/corelib/fpg_utils.pas @@ -54,6 +54,7 @@ function fpgFileExists(const FileName: TfpgString): Boolean; function fpgDirectoryExists(const ADirectory: TfpgString): Boolean; function fpgExtractFileDir(const FileName: TfpgString): TfpgString; function fpgExtractFilePath(const FileName: TfpgString): TfpgString; +function fpgExtractFileName(const FileName: TfpgString): TfpgString; implementation @@ -132,6 +133,11 @@ begin Result := ExtractFilePath(fpgToOSEncoding(Filename)); end; +function fpgExtractFileName(const FileName: TfpgString): TfpgString; +begin + Result := ExtractFileName(fpgToOSEncoding(Filename)); +end; + function fpgAppendPathDelim(const Path: TfpgString): TfpgString; begin if (Path <> '') and (Path[length(Path)] <> PathDelim) then |