Типизированный файл – файл в котором все элементы имеют одинаковый тип данных. Элементы типизированного файла могут быть любого типа кроме файлового.
Для хранения каждого элемента данных в файле выделяется строго фиксированое количество позиций, в зависимости от типа этих данных.
Для того, чтобы открыть типизированный файл в блоке описания, как и в случае с текстовым файлом, надо задать идентификатор файла и описать тип данных которые будут находиться в данном файле.
<Идентификатор файла>: file of <тип данных>;
В нашем случае:
FT : File of integer;
Эта запись указывает на то, что данные в этом файле будут целые числа, лежащие в диапазоне от –32768 до 32767.
Как и при работе с текстовым файлом, для работы с конкретным типизированным файлом, используя процедуру assign() необходимо связать идентификатор файла с именем конкретного физического файла.
Assign (<Идентификатор файла>,<Имя физического файла>);
В нашем случае можно записать
Assign (FT,’may.dat’);
При работе с типизированным файлом, как и при работе с текстовым, его можно открыть для записи, чтения. Для этого используются стандартные процедуры:
Процедура rewrite(<Идентификатор файла>) - открывает файл для записи и перемещает указатель к началу файла.
После окончания работы с типизированным файлом его необходимо закрыть используя процедуру Close(<Идентификатор файла>), которая прерывает связь идентификатора файла с конкретным физическим файлом и позволяет использовать этот идентификатор для работы с другим типизированным файлом имеющем тот же тип данных. Ниже приведен участок программы, которая записывает предварительно введенный числовой массив в файл имеющий тип integer.
procedure exi;
var
FileOut : File of integer;
begin
assign (FileOut, ‘may.dat’);
rewrite(FileOut);
for i:=1 to Kolichestvo do
write (FileOut, Chislo [i]);
close(FileOut);
end;
Достарыңызбен бөлісу: |