Работа с нетипизированными файлами:
Так как при работе с нетипизированными файлами данные считываются и записываются побайтно, допускается обрабатывать такие файлы, как последовательность байтов, не имеющих строгой внутренней структуры. Для этого применяют процедуры блочного ввода/вывода BlockRead и BlockWrite. Они имеют одинаковый список параметров и отличаются только названиями.
procedure BlockWrite(var f:File; var Buf; Count:Integer; var AmtTransferred: Integer);
Параметр Buf - это произвольная переменная (напр: B: array [1..1000] of Byte), параметр Сount - число блоков считываемой или записываемой информации. Если при открытии файла размер блока не был указан явно (напр: Reset(F,1); или Rewrite(F,1) , где - F:File), считается, что он равен 128 байтам. Однако нетипизированные файлы применяют, как правило, для побайтной обработки данных, поэтому длину блока задают равной 1 байту, и в параметр Count записывают просто число байтов, которые необходимо считать или записать. Параметр AmtTransferred - необязательный. По окончании выполнения процедуры в нём будет храниться число реально считанных или записанных блоков.
|