[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 LINUX and UNIX, 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]