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

function SetBit(const Value, Pos: Integer): Integer;

asm

and    EDX,31

bts    EAX,EDX

end;

Содержание раздела

---

---