paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

CVS: Enter log comment for commit

Browse Source 
+ SizeOfFile function added
This commit is contained in:
pierre 2002-08-29 07:59:46 +00:00
parent a48f4fc217
commit 90d10bf86b
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/wutils.pas
View File

@ -159,6 +159,7 @@ function OptimizePath(Path: string; MaxLen: integer): string;
function CompareText(S1, S2: string): integer; function CompareText(S1, S2: string): integer;
function ExistsDir(const DirName: string): boolean; function ExistsDir(const DirName: string): boolean;
function ExistsFile(const FileName: string): boolean; function ExistsFile(const FileName: string): boolean;
function SizeOfFile(const FileName: string): longint;
function DeleteFile(const FileName: string): integer; function DeleteFile(const FileName: string): integer;
function CopyFile(const SrcFileName, DestFileName: string): boolean; function CopyFile(const SrcFileName, DestFileName: string): boolean;
function GenTempFileName: string; function GenTempFileName: string;
@ -1146,6 +1147,22 @@ begin
{$endif def FPC} {$endif def FPC}
end; end;
{ returns zero for empty and non existant files }
function SizeOfFile(const FileName: string): longint;
var
Dir : SearchRec;
begin
Dos.FindFirst(FileName,Archive+ReadOnly,Dir);
if (Dos.DosError=0) then
SizeOfFile:=Dir.Size
else
SizeOfFile:=0;
{$ifdef FPC}
Dos.FindClose(Dir);
{$endif def FPC}
end;
function ExistsDir(const DirName: string): boolean; function ExistsDir(const DirName: string): boolean;
var var
Dir : SearchRec; Dir : SearchRec;
@ -1269,7 +1286,11 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.9 2002-05-13 13:44:33 peter Revision 1.10 2002-08-29 07:59:46 pierre
CVS: Enter log comment for commit
+ SizeOfFile function added
Revision 1.9 2002/05/13 13:44:33 peter
* fixed range error * fixed range error
Revision 1.8 2002/04/02 13:23:02 pierre Revision 1.8 2002/04/02 13:23:02 pierre