Библиотека подпрограмм обработки двоичных последовательностей

Чтение блока данных из файла

32-х	function ReadNomer(Dln:byte): Integer;
16-ти	function ReadNomer(Dln:byte): word;

Dln - количество бит, считываемых из файла (<=16 для 16 разр.версии), (<= 32 для 32 разр.версии).

Функция возвращает значение очередной, считанной из файла группы бит, преобразованной в двоичный номер. В случае невозможности выполнения операции возвращается код ошибки методом установки значения переменной Error_File_bit. Текущая позиция бита в файле увеличивается на - Dln бит.

Возможные возвращаемые значения:

btOk - успешное завершение операции;
btNevReg - неверный запрос (попытка прочитать файл, предназначенный для записи);
btOchBB - ошибка при выполнении ввода данных. Уточнение ошибки по - IOResult.
btEndFile - конец данных в файле.

Пример организации последовательного чтения бит данных из файла приведен в таблице:

32-х	`Var BitStr: TbitFile; BitZn : Integer; {Объявление переменной} … Repeat … {Обработка последовательности бит} BitZn := BitStr.ReadNomer; {Чтение блока данных} Until (Error_File_bit <> 0);` `…`
16-ти	`Var BitStr: PbitFile; BitZn : Word; {Объявление переменной} … Repeat … {Обработка последовательности бит} BitZn := BitStr^.ReadNomer; {Чтение блока данных} Until (Error_File_bit <> 0);` `…`