Нетипизированные файлы — это последовательность компонент произвольного типа.
Открытие нетипизированного файла:
Reset (f, BufSize).
Rewrite (f, BufSize).
Параметр BufSize задает число байтов, считываемых из файла или записываемых в него за одно обращение. Минимальное значение BufSize — 1 байт, максимальное — 64 К байт. Если BufSize не указан, то по умолчанию он принимается равным 128.
Чтение данных из нетипизированного файла
BlockRead (f, X, Count, QuantBlock);
Эта процедура осуществляет за одно обращение чтение в переменную X количества блоков, заданное параметром Count, при этом длина блока равна длине буфера. Значение Count не может быть меньше 1. За одно обращение нельзя прочесть больше, чем 64 К байтов.
Необязательный параметр QuantBlock возвращает число блоков, прочитанных текущей операцией BlockRead. В случае успешного завершения операции чтения QuantBlock = Count, в случае аварийной ситуации параметр QuantBlock будет содержать число удачно прочитанных блоков. Отсюда следует, что с помощью параметра QuantBlock можно контролировать правильность выполнения операции чтения.
Запись данных в нетипизированные файл
BlockWrite (f, X, Count, QuantBlock);
Эта процедура осуществляет за одно обращение запись из переменной X количества блоков, заданное параметром Count, при этом длина блока равна длине буфера.
Необязательный параметр QuantBlock возвращает число блоков, записанных успешно текущей операцией BlockWrite.
Для нетипизированных файлов можно использовать процедуры Seek, FIlePos и FileSize, аналогично соответствующим процедурам типизированных файлов.
Создание и открытие на запись нового файла
Rewrite (F);
Если имя файла F связано с уже существующим файлом, то данные его уничтожаются, а признак конца помещается в начало файла — создается пустой файл.
Пример:
Var F: file of integer;
I, J: integer;
{Запись в файл квадратов первых 100 натуральных чисел}.
Rewrite (F);
for I:= 1 to 100 do.
begin J:= Sqr (I);
Write (F, J).
end;
