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

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

Процедура WriteLn: Ілюстрація запису простого, множинного та форматованого рядка тексту

var
  myFile : TextFile;
  text   : string;

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

  // Запис кількох відомих слів у цьому файлі
  WriteLn(myFile, 'Hello World');

  // Запис порожнього рядка
  WriteLn(myFile);

  // Запис рядка та числа у файл
  WriteLn(myFile, '22/7 = ' , 22/7);

  // Повторення вищезгаданого, але з форматуванням числа
  WriteLn(myFile, '22/7 = ' , 22/7:12:6);

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

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

  // Показ вмісту файлу
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

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