Функція SeekEoln – пропускає символи, доки не зустрінеться кінець поточного рядка чи файлу

Функція SeekEoln в Delphi пропускає символи, доки не зустрінеться кінець поточного рядка або файлу.

Функція SeekEoln: Читання всіх полів запису в текстовому файлі

var
  myFile : TextFile;
  number : Integer;

begin
  // Спроба відкрити Test.txt для запису
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запис чисел у рядок
  WriteLn(myFile, '1 2 3 4   ');   // Незаповнений простір наприкінці

  // Запис чисел як розділені параметри
  WriteLn(myFile, 5, ' ', 6, ' ', 7, ' ');  // Текст '5 6 7 '

  // Закриття файлу
  CloseFile(myFile);

  // Повторне відкриття файлу для читання
  Reset(myFile);

  // Показ вмісту файлу
  while not SeekEof(myFile) do
  begin
    // Читання чисел
    ShowMessage('Початок нового рядка');
    while not SeekEoln(myFile) do
    begin
      Read(myFile, number);
      ShowMessage(IntToStr(number));
    end;

    // Тепер переміщуємось на наступний рядок
    ReadLn(myFile);
  end;

  // Закриття файлу востаннє
  CloseFile(myFile);
end;