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

Запись блока данных в файл

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

Zn – переменная, содержащая битовую последовательность.
Dln – количество бит, записываемых в файл: (<=16 для 16 разр.версии) (<= 32 для 32 разр.версии).

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

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

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

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

32-х Var BitStr: TbitFile; I : integer; Mzn: array [1..20] of byte; … For I:= 1 to 20 if BitStr.WriteNomer( Mzn[I],5 ) <> btOk then break;
…

16-ти Var BitStr: PbitFile; I : integer; Mzn: array [1..20] of byte; … For I:= 1 to 20 if BitStr^.WriteNomer( Mzn[I],5 ) <> btOk then break;
…

32-х	`Var BitStr: TbitFile; I : integer; Mzn: array [1..20] of byte; … For I:= 1 to 20 if BitStr.WriteNomer( Mzn[I],5 ) <> btOk then break;` `…`
16-ти	`Var BitStr: PbitFile; I : integer; Mzn: array [1..20] of byte; … For I:= 1 to 20 if BitStr^.WriteNomer( Mzn[I],5 ) <> btOk then break;` `…`