GetBit

Функция возвращает значение указанного бита заданной переменной.

Синтаксис
GetBit(Value: Variant; Bit: Integer): Integer
Входные параметры
Имя параметра	Тип параметра	Описание
Value	Variant	Целочисленного значение
Bit	Integer	Номер бита(0-15)
Выходные параметры
Тип параметра		Описание
Integer		Возвращаемое значение: 1 или 0

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

Var
     valueNumber, valueBit, res: Integer;

Begin
     valueNumber := 297;   // в двоичной системе счисления 297 = 100101001
     valueBit := 3;              // нумерация начинается с конца двоичного числа, с 0 по 15
     res := GetBit(valueNumber, valueBit);
     WriteValue('Virtual channel 99', 'Значение бита №' + IntToStr(valueBit) + ' равно: ' + IntToStr(res));
end.