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

#### SeekEof

Declaration:
  Function SeekEof [(Var F : text)] : Boolean;
Description:
  SeekEof returns True is the file-pointer is at the end of the file. It ignores all whitespace. Calling this function has the effect that the file-position is advanced until the first non-whitespace character or the end-of-file marker is reached. If the end-of-file marker is reached, True is returned. Otherwise, False is returned. If the parameter F is omitted, standard Input is assumed.
Errors:
  A run-time error is generated if the file F isn’t opened.
See also:
  Eof (485), SeekEoln (566), Seek (563)

Listing: refex/ex57.pp

Program Example57;
{ Program to demonstrate the SeekEof function. }
Var C : Char;
begin
{ this will print all characters from standard input except
Whitespace characters. }
While Not SeekEof do
begin
Read (C);
Write (C);
end;
end.

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