как получить значение отдельного бита?

← →
fag2000@ok.ru © (2002-03-06 15:36) [0]

как получить значение отдельного бита например у integer?

← →
Alx2 © (2002-03-06 15:40) [1]

через битовые сдвиги, например.
a : integer;
5-й бит = (a shr 5) and 1

← →
drpass © (2002-03-06 15:40) [2]

Обычно используется операция and

← →
troits © (2002-03-06 17:12) [3]

5 - й бит
a: Integer

((1 shl 4) and a) shr 4

← →
BJValentine © (2002-03-06 17:28) [4]

a: byte;
....
if (a and $04) >0 then ... (проверка бита 2 00000100)

← →
Dimka Maslov © (2002-03-06 19:08) [5]

function Bit(Value, Index: Integer): Boolean;
asm
bt eax, edx
setc al
and eax, 0FFh
end;

>troits © (06.03.02 17:12)
Проще все :)
((1 shl 4) and a) shr 4 = (a shr 4) and 1

>Dimka Maslov © (06.03.02 19:08
Наверное (на всякий случай):
function Bit(Value, Index: Integer): Boolean; register;

как получить значение отдельного бита? Найти похожие ветки