Клуб программистов

    Процедура WriteLn записывает строку данных с завершающим символом в текстовый файл или на консоль.

     Вариант 1

     Используется для вывода строки текста на консоль.

     Вариант 2

     Используется для записи строки текста в текстовый файл, заданный переменной FileHandle.

     Вы должны связать файл с файловой переменной с помощью функции AssignFile и открыть его с помощью Reset или ReWrite перед использованием WriteLn.

     Для текстовых файлов, записанный текст пожжет быть любым корректным выражением(-ями). Часто записываемый текст представлен строкой, но он также может быть выражением, которое возвращает в качестве результата строку или число.

     После каждого выражения вы можете добавить опции форматирования

     :ширина - Ширина поля для строк и чисел
    :точность - Количество цифр после запятой для чисел

var
   myFile : TextFile;
   text : string;

begin
   // Try to open the Test.txt file for writing to
   AssignFile(myFile, 'Test.txt');
   ReWrite(myFile);

   // Write a couple of well known words to this file
   WriteLn(myFile, 'Hello World');

   // Write a blank line
   WriteLn(myFile);

   // Write a string and a number to the file
   WriteLn(myFile, '22/7 = ' , 22/7);

   // Repeat the above, but with number formatting
   WriteLn(myFile, '22/7 = ' , 22/7:12:6);

   // Close the file
   CloseFile(myFile);

   // Reopen the file for reading
   Reset(myFile);

   // Display the file contents
   while not Eof(myFile) do
   begin
      ReadLn(myFile, text);
      ShowMessage(text);
   end;

   // Close the file for the last time
   CloseFile(myFile);
end;

Hello World

22/7 = 3.14285714285714E:0000
22/7 = 3.142857