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

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

32-х	function WriteBit ( Zn: byte) : word;
16-ти	function WriteBit ( Zn: byte) : word;

Zn - бит дополнения файла.

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

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

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

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

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

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

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