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

+ Added filetruncate

Browse Source
This commit is contained in:
michael 1999-02-02 21:21:37 +00:00
parent 536151d796
commit 018f2a798f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/filutilh.inc
View File

@ -45,6 +45,7 @@ Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
Function FileWrite (Handle : Longint; Var Buffer; Count : Longint) : Longint; Function FileWrite (Handle : Longint; Var Buffer; Count : Longint) : Longint;
Function FileSeek (Handle,Offset,Origin : Longint) : Longint; Function FileSeek (Handle,Offset,Origin : Longint) : Longint;
Procedure FileClose (Handle : Longint); Procedure FileClose (Handle : Longint);
Function FileTruncate (Handle,Size: Longint) : boolean;
Function FileAge (Const FileName : String): Longint; Function FileAge (Const FileName : String): Longint;
Function FileExists (Const FileName : String) : Boolean; Function FileExists (Const FileName : String) : Boolean;
Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint; Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
@ -61,7 +62,10 @@ Function FileSearch (Const Name, DirList : String) : String;
{ {
$Log$ $Log$
Revision 1.2 1998-10-11 13:47:45 michael Revision 1.3 1999-02-02 21:21:37 michael
+ Added filetruncate
Revision 1.2 1998/10/11 13:47:45 michael
+ Added disk functions + Added disk functions
Revision 1.1 1998/10/11 12:21:01 michael Revision 1.1 1998/10/11 12:21:01 michael