Содержание:


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.