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

Чтение последовательности бит из файла

32-х	function ReadStr(Count:Integer): word;
16-ти	function ReadStr(Count:word): word;

Count - количество бит, считываемых из файла.

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

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

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

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

32-х Var BitStr: TBitFile; {Объявление переменной} … Repeat if BitStr.ReadStr(200) <> btOk then break; {Чтение 200 бит} … {Обработка последовательности бит} Until (IOResult <> 0);
…

16-ти Var BitStr: PBitFile; {Объявление переменной} … Repeat if BitStr^.ReadStr(200) <> btOk then break; {Чтение 200 бит} … {Обработка последовательности бит} Until (IOResult <> 0);
…

32-х	`Var BitStr: TBitFile; {Объявление переменной} … Repeat if BitStr.ReadStr(200) <> btOk then break; {Чтение 200 бит} … {Обработка последовательности бит} Until (IOResult <> 0);` `…`
16-ти	`Var BitStr: PBitFile; {Объявление переменной} … Repeat if BitStr^.ReadStr(200) <> btOk then break; {Чтение 200 бит} … {Обработка последовательности бит} Until (IOResult <> 0);` `…`