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

+ Implemented filetruncate

Browse Source
This commit is contained in:
michael 1999-02-09 12:01:03 +00:00
parent c29c66da40
commit 641d6e3304
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win32/filutil.inc
View File

@ -86,6 +86,9 @@ end;
Function FileTruncate (Handle,Size: Longint) : boolean;
begin
Result:=SetFilePointer(handle,Size,nil,FILE_BEGIN)<>-1;
If Result then
Result:=SetEndOfFile(handle);
end;
@ -194,7 +197,10 @@ end;
{
$Log$
Revision 1.2 1999-02-03 11:41:30 michael
Revision 1.3 1999-02-09 12:01:03 michael
+ Implemented filetruncate
Revision 1.2 1999/02/03 11:41:30 michael
+ Added filetruncate
Revision 1.1 1998/10/11 12:21:01 michael