Delphi-Help

WriteLn

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

WriteLn

Описание

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;

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

Примечание

WriteLn не буферизует записи, так что выполнение ухудшено. BlockWrite более эффективен, но приспособлен к записи в двоичные файлы.

Авторизация



Счетчики