Add OS encoding friendly fpgExtractFilePath function.

Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>

1 files changed, 6 insertions, 0 deletions

diff --git a/src/corelib/fpg_utils.pas b/src/corelib/fpg_utils.pas
index 011319e9..c583494e 100644
--- a/src/corelib/fpg_utils.pas
+++ b/src/corelib/fpg_utils.pas
@@ -53,6 +53,7 @@ function fpgExpandFileName(const FileName: TfpgString): TfpgString;
 function fpgFileExists(const FileName: TfpgString): Boolean;
 function fpgDirectoryExists(const ADirectory: TfpgString): Boolean;
 function fpgExtractFileDir(const FileName: TfpgString): TfpgString;
+function fpgExtractFilePath(const FileName: TfpgString): TfpgString;
 
 
 implementation
@@ -126,6 +127,11 @@ begin
   Result := ExtractFileDir(fpgToOSEncoding(FileName));
 end;
 
+function fpgExtractFilePath(const FileName: TfpgString): TfpgString;
+begin
+  Result := ExtractFilePath(fpgToOSEncoding(Filename));
+end;
+
 function fpgAppendPathDelim(const Path: TfpgString): TfpgString;
 begin
   if (Path <> '') and (Path[length(Path)] <> PathDelim) then