[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Truncate the file at position
Source position: systemh.inc line 1293
procedure Truncate( |
var F: file |
); |
Truncate truncates the (opened) file F at the current file position.
Depending on the state of the {$I} switch, a runtime error can be generated if there is an error. In the {$I-} state, use IOResult to check for errors.
|
Open a file in append mode |
|
|
Get position in file |
|
|
Set file position |
Program Example71; { Program to demonstrate the Truncate function. } Var F : File of longint; I,L : Longint; begin Assign (F,'test.tmp'); Rewrite (F); For I:=1 to 10 Do Write (F,I); Writeln ('Filesize before Truncate : ',FileSize(F)); Close (f); Reset (F); Repeat Read (F,I); Until i=5; Truncate (F); Writeln ('Filesize after Truncate : ',Filesize(F)); Close (f); end.