Function SeekEoln [(Var F : text)] : Boolean;
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.
A run-time error is generated if the file F isn't opened.
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.