Функция SeekEoln()

Модуль SYSTEM

Возвращает состояние конца строки в файле.

Объявление:

Function SeekEoln [ (Var F : Text) ] : Boolean;

Режим:

Windows,  Protected,  Real

Замечание:

Может быть использована только для текстовых файлов. Файл должен быть открыт.

Пример:

{SeekEof.PAS}
 
 { Пример программы для функций SeekEof And SeekEoln Functions }
 
 Uses WinCrt;
 
 Var F : Text;
  I, J : Integer;
 
 Begin
  Assign(F, 'TEST.TXT');
  ReWrite(F);
  { Создает файл с 8-ю цифрами и пробелами в конце строк }
  WriteLn(F, '1 2 3 4 ');
  WriteLn(F, '5 6 7 8 ');
  Reset(F);
  { Считываем данные обратно. SeekEoln возвращает
    TRUE, если в данной строке больше нет цифр;
    SeekEof возвращает TRUE, если в файле больше нет
    текста (кроме пробелов) }
  While Not SeekEof(F) Do
  Begin
   If SeekEoln(F) Then ReadLn; { Переходим на следующую строку }
   Read(F, J);
   WriteLn(J);
  End;
End.