Функция на Delphi, которая проверяет, установлен ли бит (двоичная система счисления) в числе:
function IsBit(N: Longint; nBit: Byte): Boolean; {N - число nBit - номер бита} begin result := ((1 shl (nBit - 1)) and N) <> 0; end;
Функция на Delphi, которая проверяет, установлен ли бит (двоичная система счисления) в числе:
function IsBit(N: Longint; nBit: Byte): Boolean; {N - число nBit - номер бита} begin result := ((1 shl (nBit - 1)) and N) <> 0; end;