Процедура rewrite. Чтобы открыть файл в режиме создания нового файла или замены существующего, необходимо вызвать процедуру rewrite, указав в качестве параметра файловую переменную. Процедуру Rewrite применяют, если при открытии файла старое его содержимое необходимо уничтожить, а на его место записать новое.
Пример: Открыть файл в режиме создания нового файла и записывает в него 5 раз слово Информатика.
Programnew_fail;
varf : text; { текстовый файл }
i : integer;
Begin
assign (f,’test.txt’);
reset (f); { открыть в режиме записи }
For i:=1 to 5 do
Writeln (f, ' Информатика ', i ) ;
Close(f); { закрыть файл }
end.
В результате выполнения программы на диске появляется файл test.txt.Распечатка файлаtest.txt.:
Информатика 1
Информатика 2
Информатика 3
Информатика 4
Информатика 5
Текст программы, которая открывает уже ранее существующий файлtest.txt.и записывает в него две новые строки удаляя прежние.
Programreplace_fail;
varf : text; { текстовый файл }
i : integer;
Begin
assign ( f, ’test.txt’);
rewrite (f); { открыть в режиме перезаписи }
For i:=6 to 7 do
Writeln (f, ' Информатика ', i ) ;
Close(f); { закрыть файл }
end.
В результате выполнения программы содержимое файла test.txt изменяется. Распечатка файла:
Информатика 6
Информатика 7
