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

#### Eof

Declaration:
  Function Eof [(F : Any file type)] : Boolean;
Description:
  Eof returns True if the file-pointer has reached the end of the file, or if the file is empty. In all other cases Eof returns False. If no file F is specified, standard input is assumed.
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:
  Eoln (486), Assign (455), Reset (558), Rewrite (559)

Listing: refex/ex18.pp

Program Example18;
{ Program to demonstrate the Eof function. }
Var T1,T2 : text;
C : Char;
begin
{ Set file to read from. Empty means from standard input.}
assign (t1,paramstr(1));
reset (t1);
{ Set file to write to. Empty means to standard output. }
assign (t2,paramstr(2));
rewrite (t2);
While not eof(t1) do
begin
read (t1,C);
write (t2,C);
end;
Close (t1);
Close (t2);
end.

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