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

Позиция первого ненулевого бита

32-х	function OpenBit: Integer;
16-ти

Функция возвращает позицию первого “0” бита битовой последовательности.

Внимание ! Существует только в 32-х разрядной версии. Введено с целью совместимости с классом - Delphi Tbit.

Например, переменная - BitStr содержит битовую последовательность вида (11010001100). После выполнения (для примера, приведенного в таблице) значение переменной - J будет равно 2.

32-х Var BitStr : TStr_bit; J : Integer; {Объявление переменной} … J := BitStr.OpenBit; {Позиция первого ненулевого бита}
…

16-ти

32-х	`Var BitStr : TStr_bit; J : Integer; {Объявление переменной} … J := BitStr.OpenBit; {Позиция первого ненулевого бита}` `…`
16-ти