SetOffBit

Функция устанавливает указанный бит в "0". При успешной записи значения "0" функция возвращает True, в противном случае возвращается False.

Синтаксис
SetOffBit(Value: Variant, Bit: Integer): Integer
Входные параметры
Имя параметра	Тип параметра	Описание
Value	Variant	Целочисленное значение
Bit	Integer	Номер бита(0-15)
Выходные параметры
Тип параметра		Описание
Boolean		Возвращаемое значение: True - успешная запись False - ошибка записи

Пример вызова:

Var
     valueNumber, valueBit: Integer;
     s: String;
     res: Boolean;

Begin
     valueNumber := 297;     // в двоичной системе счисления 297 = 100101001
     valueBit := 3;                // нумерация начинается с конца двоичного числа, с 0 по 15
     s := 'Значение числа ДО: ' + IntToStr(valueNumber) + #10;
     res := SetOffBit(valueNumber, valueBit);
     s := s + 'Значение числа ПОСЛЕ: ' + IntToStr(valueNumber);
   if res then
        WriteValue('Virtual channel 99', s)
   else
        WriteValue('Virtual channel 99', 'Ошибка установки бита!');
end.