Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.21;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
3-66761
AndrewK
2002-02-20 17:22
2002.03.21
DBGrid


1-66926
ak
2002-03-06 18:47
2002.03.21
проблема с версией BDE


1-66840
Squall
2002-03-07 17:02
2002.03.21
КОМПАНЕНТА с XP STYLE!!! Где ДОСТАТЬ?


1-66896
Song
2002-03-05 10:38
2002.03.21
мне нужно послать Ctrl+A через WM_CHAR (или ещё как-то). Через SendMessage там есть последний параметр lKeyData.


4-67045
Ted
2002-01-23 08:01
2002.03.21
убрать программу из systemtray