Установка бита строки в состояние bt1 или bt0

32-х[Nach]
16-тиProcedure PutBit(Nach:word; Zn: byte);

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

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

Например, переменная содержит битовую последовательность вида (110100000). После установки значения 6-го бита в 1 переменная будет содержать (110100100). Пример установки значения шестого бита битовой последовательности в состояние “1” приведен в таблице:

32-х

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

…

BitStr[6] := bt1; {Установка значения 6-го бита}

…

16-ти

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

…

BitStr^.PutBit(6, bt1); {Установка значения 6-го бита}

…