Справочник по Delphi

SeekEoln, функция

Синтаксис


function SeekEoln(var F:  TextFile = Input):  Boolean;

Описание

Функция SeekEoln пропускает пустые символы и возвращает True, если достигнут конец файла или конец строки. SeekEoln интерпретирует перевод каретки (#13) как конец строки. False возвращается в том случае, если текста не осталось или следующий символ - не перевод каретки. SeekEoln не является настоящей функцией.

Ошибки

Если F не был открыт, SeekEoln возвращает ошибку времени выполнения 103.
Файл должен быть открыт процедурой Reset. Если файл F был открыт с помощью процедур Rewrite или Append, SeekEoln генерирует ошибку времени выполнения 104.

Советы и приемы

Пример


// Читаем последовательность чисел из одной текстовой строки.
// Возвращает сумму этих чисел.
function SlimLine: Double;
var
  X: Double;
begin
  Write('Number list: ');
  Result := 0.0;
  while not SeekEoln do
  begin
    Read(X);
    Result := Result + X;
  end;
end;

Смотрите также

Функции Eoln, lOResult, процедуры Reset, SeekEof.

Учебник по языку Pascal Лабораторные работы по программированию Справочник

Нет комментариев.

Оставить комментарий: