Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Внизкак получить значение отдельного бита? Найти похожие ветки
← →
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;
← →
Alx2 (2002-03-07 08:03) [6]>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;
← →
Alx2 (2002-03-07 08:06) [7]>troits © (06.03.02 17:12)
>5 - й бит
Наверное, 4-й (счет, кажется, с нулевого идет, или нет?)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c