Проверка установки отдельного бита (0-31)

function IsBit(Value, Pos: Integer): Boolean;

asm

mov ECX,EAX

xor EAX,EAX

and EDX,31

bt ECX,EDX

adc EAX,0

end;

Содержание  Назад  Вперед

---