utils: Adds a new RTL wrapper to handle UTF-8 path names correctly.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/corelib/fpg_utils.pas b/src/corelib/fpg_utils.pas
index dcc0cf71..9d0e907d 100644
--- a/src/corelib/fpg_utils.pas
+++ b/src/corelib/fpg_utils.pas
@@ -63,6 +63,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 fpgExtractRelativepath(const ABaseName, ADestName: TfpgString): TfpgString;
 function fpgForceDirectories(const ADirectory: TfpgString): Boolean;
 function fpgChangeFileExt(const FileName, Extension: TfpgString): TfpgString;
 function fpgGetAppConfigDir(const Global: Boolean): TfpgString;
@@ -164,6 +165,11 @@ begin
   Result := ExtractFileExt(fpgToOSEncoding(Filename));
 end;
 
+function fpgExtractRelativepath(const ABaseName, ADestName: TfpgString): TfpgString;
+begin
+  Result := ExtractRelativepath(fpgToOSEncoding(ABaseName), fpgToOSEncoding(ADestName));
+end;
+
 function fpgForceDirectories(const ADirectory: TfpgString): Boolean;
 begin
   Result := ForceDirectories(fpgToOSEncoding(ADirectory));