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

SeekEOLn

Set file position to end of line

Declaration

Source position: line 0

function SeekEOLn(

  var t: Text

):Boolean;

function SeekEOLn: Boolean;

Description

SeekEolnreturns Trueis the file-pointer is at the end of the current line. 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-line marker is reached. If the end-of-line marker is reached, Trueis returned. Otherwise, False is returned. The end-of-line marker is defined as #10, the LineFeed character. 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

SeekEof

  

Set file position to end of file

Seek

  

Set file position

Example

Program Example58;

{ Program to demonstrate the SeekEoln function. }
Var
  C : Char;

begin
  { This will read the first line of standard output and print
    all characters except whitespace. }
  While not SeekEoln do
    Begin
    Read (c);
    Write (c);
    end;
end.