diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-30 16:31:02 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-30 16:31:02 +0200 |
commit | 7f0d49cdbadd71f5d04cfcd1e8925dc3f41358a3 (patch) | |
tree | 3c1fc2d76c383e29d693d32e8c72b921a7908d0e | |
parent | 74b9ddefca05d8e52a1d6112a4a9c140200763a8 (diff) | |
download | fpGUI-7f0d49cdbadd71f5d04cfcd1e8925dc3f41358a3.tar.xz |
fpg_utils: new fpgDeleteFile() wrapper for the RTL DeleteFile() procedure
-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 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)); |