Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Получение значения бита в двойном слове

Функция возвращает значение бита с номером Index в двойном слове Value

Зависимости: нет

Автор: Dimka Maslov, mainbox@ endimus. ru, ICQ:148442121, Санкт-Петербург

Copyright: Dimka Maslov

Дата: 21 мая 2002 г.

***************************************************** }

function Bit(Value, Index: Integer): Boolean;

asm

bt eax, edx

setc al

and eax, 0FFh

end;