Нетипизированные файлы. имя_файлового_типа=File;

Формат описания:

1-ый способ:

Type

имя_файлового_типа=File;

Var

файловая_переменная: имя_файлового_типа;

2-ой способ:

Var

файловая_переменная : File;

Нетипизированные файлы отличаются тем, что для них не указан тип компонент. Отсутствие типа делает их, с одной стороны, совместимыми с любыми другими файлами, а с другой – позволяет организовать высокоскоростной обмен данными между диском и памятью.

При инициализации нетипизированного файла процедурами Reset или Rewrite можно указать длину записи нетипизированного файла в байтах. Если длина записи не указана, принимается 128 байт.

Пример:

Var

F:File;

Begin

Assign(F,’MyFile.dat’);

Reset(F,512);

...

End;

При работе с нетипизированными файлами могут применяться все процедуры и функции, доступные типизированным файлам, за исключением Read и Write, которые заменяются соответственно высокоскоростными процедурами BlockRead и BlockWrite. Формат описания процедур:

BlockRead(файловая_переменная,буфер,count);

BlockRead(файловая_переменная,буфер,count,result);

BlockWrite(файловая_переменная,буфер,count);

BlockWrite(файловая_переменная,буфер,count,result);

Буфер – это имя переменной, которая будет участвовать в обмене данными с диском. Count – количество блоков, которые нужно считать или записать. Result – количество блоков, которое было передано фактически.