Представление битовой подстроки в десятичном виде

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

Nach –   позиция бита в битовой строке (0…длина битовой переменной);
Dln   - размер преобразуемой битовой последовательности (<=32).

Функция выделяет группу бит длиной Dln  из последовательности бит с бита Nach.   Результат представляет целочисленную переменную, в которой заполнены Dln  младших бит.

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

Var BitStr : TStr_bit; J : Integer; {Объявление переменной}

…

J := BitStr.Nomer (3, 5); {Десятичное значение последоват. бит}

J := BitStr.Nomer (8, 3); {Десятичное значение последоват. бит}

…

16-ти

Var BitStr : PStr_bit; J : Word; {Объявление переменной}

…

J := BitStr^.Nomer (3, 5); {Десятичное значение последоват. бит}
J := BitStr^.Nomer (8, 3); {Десятичное значение последоват. бит}

…