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

SeekEOLn

Set file position to end of line.

Declaration

Source position: systemh.inc line 1472

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.

Documentation generated on: Oct 02 2024