diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-04-22 15:24:50 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-04-22 15:24:50 +0200 |
| commit | 355e6b07878b6b8e9c83a8a26d82f6f685d666d2 (patch) | |
| tree | bf018b3ce0afe6c5edf46c00d6cee8bd59073b7c /src/corelib/fpg_utils.pas | |
| parent | 704fa4227ec96e8d5974c37c6665b7e1525609f0 (diff) | |
| download | fpGUI-355e6b07878b6b8e9c83a8a26d82f6f685d666d2.tar.xz | |
New Unicode wrapper function added: fpgExtractFileExt()
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 185e3b0b..0a0237c9 100644 --- a/src/corelib/fpg_utils.pas +++ b/src/corelib/fpg_utils.pas @@ -55,6 +55,7 @@ function fpgDirectoryExists(const ADirectory: TfpgString): Boolean; function fpgExtractFileDir(const FileName: TfpgString): TfpgString; function fpgExtractFilePath(const FileName: TfpgString): TfpgString; function fpgExtractFileName(const FileName: TfpgString): TfpgString; +function fpgExtractFileExt(const FileName: TfpgString): TfpgString; implementation @@ -138,6 +139,11 @@ begin Result := ExtractFileName(fpgToOSEncoding(Filename)); end; +function fpgExtractFileExt(const FileName: TfpgString): TfpgString; +begin + Result := ExtractFileExt(fpgToOSEncoding(Filename)); +end; + function fpgAppendPathDelim(const Path: TfpgString): TfpgString; begin if (Path <> '') and (Path[length(Path)] <> PathDelim) then |