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

#### Filesize

Declaration:
  Function Filesize (Var F : Any file type) : Longint;
Description:
  Filesize returns the total number of records in file F. It cannot be invoked with a file of type Text. (under L I N U X and U N I X, this also means that it cannot be invoked on pipes). If F is empty, 0 is returned.
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:
  Filepos (494)

Listing: refex/ex24.pp

Program Example24;
{ Program to demonstrate the FileSize function. }
Var F : File Of byte;
L : File Of Longint;
begin
Assign (F,paramstr(1));
Reset (F);
Writeln ('File size in bytes : ',FileSize(F));
Close (F);
Assign (L,paramstr (1));
Reset (L);
Writeln ('File size in Longints : ',FileSize(L));
Close (f);
end.

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