Процедура ReadLn – дозволяє прочитати повний рядок даних із текстового файлу

Процедура ReadLn в Delphi – дозволяє прочитати повний рядок даних із текстового файлу.

Процедура ReadLn: Читання кожного текстового рядка як набір 4 чисел

var
  myFile : TextFile;
  n1, n2, n3 : Integer;

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

  // Запис чисел у рядок
  WriteLn(myFile, '1 2 3 4');   // Зверніть увагу, що 4 будуть проігноровано

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

  // Запис чисел як окремі параметри
  WriteLn(myFile, '8 9');       // Відсутність чисел буде помічено 0

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

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

  // Показ вмісту фалу
  while not Eof(myFile) do
  begin
    ReadLn(myFile, n1, n2, n3);
    ShowMessage(IntToStr(n1)+' '+
                IntToStr(n2)+' '+
                IntToStr(n3));
  end;

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