Получение значения бита переменной

32-х[Nach]
16-тиFunction GetBit(Nach:word): byte;

Nach   – позиция бита в битовой строке (0…длина битовой переменной).

Возвращается значение бита переменной, стоящего на позиции Nach.   (Бит на данной позиции должен быть определен, т.е. значение Nach   меньше длины битовой переменной).

Например, переменная содержит битовую последовательность вида (110100000). Значение 3-го бита равно bt1 (1). Пример чтения значения третьего бита битовой последовательности приведен в таблице:

32-х

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

…

Zn := BitStr[3]; {Получение значения 3-го бита}

…
16-ти

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

…

Zn := BitStr^.GetBit(6); { Получение значения 3-го бита}

…