fpg_utils: new fpgDeleteFile() wrapper for the RTL DeleteFile() procedure

1 files changed, 6 insertions, 0 deletions

diff --git a/src/corelib/fpg_utils.pas b/src/corelib/fpg_utils.pas
index a0509304..3300a07f 100644
--- a/src/corelib/fpg_utils.pas
+++ b/src/corelib/fpg_utils.pas
@@ -57,6 +57,7 @@ function fpgGetCurrentDir: TfpgString;
 function fpgSetCurrentDir(const NewDir: TfpgString): Boolean;
 function fpgExpandFileName(const FileName: TfpgString): TfpgString;
 function fpgFileExists(const FileName: TfpgString): Boolean;
+function fpgDeleteFile(const FileName: TfpgString): Boolean;
 function fpgDirectoryExists(const ADirectory: TfpgString): Boolean;
 function fpgExtractFileDir(const FileName: TfpgString): TfpgString;
 function fpgExtractFilePath(const FileName: TfpgString): TfpgString;
@@ -129,6 +130,11 @@ begin
   Result := FileExists(fpgToOSEncoding(FileName));
 end;
 
+function fpgDeleteFile(const FileName: TfpgString): Boolean;
+begin
+  Result := DeleteFile(fpgToOSEncoding(FileName));
+end;
+
 function fpgDirectoryExists(const ADirectory: TfpgString): Boolean;
 begin
   Result := DirectoryExists(fpgToOSEncoding(ADirectory));