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

# SeekEOLn

Set file position to end of line

## Declaration

Source position: systemh.inc line 1344

`function SeekEOLn(`
`var t: Text`
`):Boolean; function SeekEOLn: Boolean;`

## Description

SeekEoln returns True is 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, True is returned. Otherwise, False is returned. The end-of-line marker is defined as #10, the LineFeed character. 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 |  | 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.