Запись в текстовый файл.

Из прошых уроков мы научились открывать файл для чтения с помощью процедуры Reset. Однако текстовый файл можно открывать не только для чтения, но и для записи в него информации. Для записи информации в файл используется процедура Rewrite.

 Запись в текстовый файл.

Program file6;
Uses crt;
var fl:text;
str:string;
begin
clrscr;
assign (fl, 'programs\text.txt');
rewrite (fl);
read (str);
write (fl,str);
close(fl);
end.

В строке №8 записываем процедуру Rewrite. Данная процедура открывает файл, указанный в скобках после слова Rewrite, для записи в него информации. В нашем случае в скобках после слова Rewrite стоит переменная «fl», которая связана с текстовым файлом «text.txt» с помощью процедуры Assign (строка №7). Поэтому этот текстовый файл и будет открыт для записи.

Строка №9. Процедура Read обеспечивает ввод строковой информации (после слова Read в круглых скобках стоит строковая переменная str). Благодаря этой процедуре мы сможем вводить с клавиатуры различные слова. Эти слова будут записаны в строковую переменную «str»

Строка №10. Процедура Write обеспечивает запись информации в текстовый файл. Запись в строке №10 означает, что в текстовый файл («fl») будет записана информация из переменной «str» (т.е. та информация, которую мы введем с клавиатуры). 

После запуска программы введите какое-нибудь слово (например, «programmirovanie») и нажмите Enter.

Теперь посмотрим наш текстовый файл «text.txt» (C:\FPC\2.2.2\bin\i386-win32\Programs). Если вы помните, то после прошлого урока там были записаны слова «pascal», «admin» и «turbo». Теперь в файле «text.txt» записано слово «programmirovanie»

Это означает, что процедура Rewrite позволяет записывать информация в файл, но при этом удаляет всю старую информацию (Rewrite с англ. «перезаписывать»).

Дополнение к материалу.

Попробуйте удалить файл «text.txt» из директории C:\FPC\2.2.2\bin\i386-win32\Programs. Теперь запустите программу из этого урока. Как видите, программа работает, хотя самого файла не существует. Теперь зайдите в директорию C:\FPC\2.2.2\bin\i386-win32\Programs. Наш файл «text.txt» находится в том месте, откуда мы его удалили. Дело в том, что если файла не существует, то при использовании процедуры Rewrite он будет создан автоматически (имя файла и его расположение указывается в процедуре Assign).

Предыдущая статья : Текстовые файлы в Паскаль.

Оглавление : Уроки Паскаль. Файлы.

Следующая статья : Запись в текстовый файл (продолжение).