|
1 procedure WriteLn ( Expression1 {options} {, Expression2 {options} ...} ) ;
2 procedure WriteLn ( var FileHandle : TextFile; Expression1 {options} {, Expression2 {options} ...} ) ;
Процедура WriteLn записывает законченную строку данных в текстовый файл или на устройство.
Версия 1:
Используется, чтобы записать строку текста в консоль.
Версия 2:
Используется, чтобы записать строку текста в текстовый файл с данным указателем FileHandle.
Вы должны использовать AssignFile, чтобы связать файл с FileHandle и открыть файл с помощью процедуры Reset или ReWrite перед использованием WriteLn. Запись текста может быть с любыми правильными Выражениями(Expression). Часто они являются строками, но могут быть также выражениями, которые приводят к строкам или числам.
После каждого выражения, вы можете добавить опции форматирования:
:width ширина поля для строк + чисел
:precision десятичные цифры для чисел
|
|
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;
|
