[Overview][Constants][Types][Classes][Procedures and functions][Variables] Reference for unit 'System' (#rtl)

SeekEOF

Set file position to end of file

Declaration

Source position: line 0

function SeekEOF(

  var t: Text

):Boolean;

function SeekEOF: Boolean;

Description

SeekEofreturns Trueis 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, Trueis returned. Otherwise, False is returned. If the parameter Fis omitted, standard Inputis assumed.

Errors

A run-time error is generated if the file Fisn't opened.

See also

Eof

  

Check for end of file

SeekEoln

  

Set file position to end of line

Seek

  

Set file position

Example

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.