overridden fpgForceDirectories() method implemented which handles OS encoding.

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