Unit 'System' Package
[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] [#rtl]

SeekEOF

Set file position to end of file.

Declaration

Source position: systemh.inc line 1473

function SeekEOF(

  var t: Text

):Boolean;

function SeekEOF: 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.

Remark: The SeekEOF function can only be used on real textfiles: when assigning the file to other kinds of (virtual) text files, the function may fail, although it will perform a number of tests to guard against wrong usage.

Errors

A run-time error is generated if the file F isn'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.

Documentation generated on: Oct 02 2024