SetOnBit

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

Синтаксис
SetOnBit(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 := 1;                // нумерация начинается с конца двоичного числа, с 0 по 15
     s := 'Значение числа ДО: ' + IntToStr(valueNumber) + #10;
     res := SetOnBit(valueNumber, valueBit);
     s := s + 'Значение числа ПОСЛЕ: ' + IntToStr(valueNumber);
   if res then
        WriteValue('Virtual channel 99', s)
   else
        WriteValue('Virtual channel 99', 'Ошибка установки бита!');
end.