[next] [prev] [prev-tail] [tail] [up]

#### Truncate

Declaration:
  Procedure Truncate (Var F : file);
Description:
  Truncate truncates the (opened) file F at the current file position.
Errors:
  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.
See also:
  Append (452), Filepos (494), Seek (563)

Listing: refex/ex71.pp

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.

[next] [prev] [prev-tail] [front] [up]