seekeof.pas

 {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.