| Описание |
Процедура WriteLn записывает законченную строку данных в текстовый файл или на устройство.
Версия 1:
Используется, чтобы записать строку текста в консоль.
Версия 2:
Используется, чтобы записать строку текста в текстовый файл с данным указателем FileHandle.
Вы должны использовать AssignFile, чтобы связать файл с FileHandle и открыть файл с помощью процедуры Reset или ReWrite перед использованием WriteLn.
Запись текста может быть с любыми правильными Выражениями(Expression). Часто они являются строками, но могут быть также выражениями, которые приводят к строкам или числам.
После каждого выражения, вы можете добавить опции форматирования:
:width ширина поля для строк + чисел
:precision десятичные цифры для чисел
|
|
| Примечания |
|
WriteLn не буферизует записи, так что выполнение ухудшено. BlockWrite более эффективен, но приспособлен к записи в двоичные файлы.
|
|
| Похожие команды |
Append Открывает текстовый файл, для добавления записей в файл (добавляет в конец файла)
AssignFile Связывает дескриптор файла с бинарным или текстовым файлом
BlockRead Читает блок записей данных из нетипизированного двоичного файла
BlockWrite Записывает блок записей данных в нетипизированный двоичный файл
File Определяет типизированный или нетипизированный файл
Read Позволяет прочитать данные из двоичного или текстового файла
ReadLn Позволяет прочитать полную строку данных из текстового файла
Reset Открывает текстовый файл для чтения, или двоичный файл для чтения/записи
ReWrite Открывает текстовый или двоичный файл для записи
TextFile Объявляет типа файл для того, чтобы сохранить строки текста
Write Записывает данные в бинарный или текстовый файл
| |
|
| Пример кода : Иллюстрация записи простой, множественной и форматированной строки текста |
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;
|
Hello World
22/7 = 3.14285714285714E:0000
22/7 = 3.142857
|
|
