Инвертирование значения бита

32-хProcedure InvBit ( Index : Integer);
16-тиProcedure InvBit ( Index : word);

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

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

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

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

…

BitStr.InvBit(0); {Инвертирование значения 0-го бита}

…

16-ти

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

…

BitStr^.InvBit(0); {Инвертирование значения 0-го бита}

…