Как в байте информации выделить биты

Материал из DRKB

Как в байте информации выделить биты[править | править код]

В Delphi используй операцию and, которая возвращает результат побитового умножения. Пример a and $10 - выделить 4-ый бит. Если результат не ноль - бит установлен.

То же самое, но на ассемблере. Это позволяет достичь максимальной скорости выполнения.

function GetBites(t, Mask: LongWord): LongWord;  
asm
  mov eax, t;
  and eax, mask;
end;


Эта функция возвращает t and Mask. Если необходимо выполнить сдвиг, то применяется команда shr:

function ShiftBites(t, Mask: LongWord; shift: byte): LongWord; 
asm
  mov eax, t;
  mov cl, shift;
  shr eax;
  and eax, Mask;
end;

Эта функция возвращает (t shr shift) and Mask. Если же ассемблер не поможет, надо или переделывать алгоритм, или менять компьютер :))


Source: http://delphiworld.narod.ru
ID: 00819