Процедура append. Чтобы открыть файл в режиме добавления информации в существующий файл, необходимо вызвать процедуру append, указав в качестве параметра файловую переменную (переменную типа text). этой процедурой следует пользоваться, если файл, подлежащий обработке, уже существует и данные, хранимые в нём, не должны быть утрачены.
Следующая программа, тоже, как и программа replace_fail, открывает файл test.txt, но уже в режиме добавления, и записывает в него две строки (дописывает в конец файла).
Programadd_fail;
varf : text; { текстовый файл }
i : integer;
Begin
assign ( f, ’test.txt’);
append (f); { открыть в режиме добавления }
For i:=8 to 9 do
Writeln (f, ' Информатика ', i) ;
Close(f); { закрыть файл }
end.
После выполнения приведенной программы содержимое файла test.txt опять меняется. Распечатка файла:
Информатика 6
Информатика 7
Информатика 8
Информатика 9
Закрытие файла
Процедура close. Перед завершением работы программа должна закрыть все открытые файлы. Это делается вызовом процедуры close. Этой процедуре в качестве параметра передается файловая переменная, связанная с файлом, который надо закрыть.
Пример использования процедуры:
close ( f ) ;
(смотри предыдущие примеры программ).
