Запись в текстовый файл
Запись в текстовый файл
выполняется оператором WRITE,
в котором перед списком вывода стоит
файловая переменная.
Выводимая информация присоединяется
к той,
что была выведена в файл с момента его
открытия.
Желая создать новый файл,
его открывают оператором REWRITE.
Если же хотят дополнить уже существующий
файл, открытие выполняют
оператором APPEND.
Открытие существующего
файла оператором REWRITE
приведет к потере того,
что находилось там раньше.
Закончив запись в файл, вы
должны его закрыть. Только после закрытия
новый файл будет окончательно сформирован.
Дополнительный оператор
записи WRITELN
выводит все, редусмотренное списком
вывода, и символы #13 #10 впридачу.
ПРИМЕР. Ввод
с клавиатуры и запись в текстовый файл.
var
f: text;
s:string;
begin
assign(f,
'XXX.TXT’);
rewrite
(f); {открытие
файла}
readln
(s); {ввод
с
клавиатуры}
.
while
s <> ‘’ do
begin
writeln
(f,s); {вывод
в
файл}
readln
(s); {ввод
с
клавиатуры}
end {while};
close
(f) {закрытие
файла}
end.
