diff options
-rw-r--r-- | src/nvUtilities.pas | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/nvUtilities.pas b/src/nvUtilities.pas index 212ac8e8..1af9b6cf 100644 --- a/src/nvUtilities.pas +++ b/src/nvUtilities.pas @@ -32,6 +32,8 @@ Function ExtractNextValueNoTrim( procedure MemCopy(const src; var dest; size: SizeInt); // Allows for debug output and quite disable of output procedure ProfileEvent(const AString: string); +// Return AFilename's size in bytes +function GetFileSize(const AFilename: string): integer; implementation @@ -83,5 +85,18 @@ begin {$ENDIF} end; +function GetFileSize(const AFilename: string): integer; +var + f: File; +begin + Result := 0; + Assign(f, AFileName); + {$i-} + Reset(f); + {$i+} + Result := FileSize(f); + CloseFile(f); +end; + end. |