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

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

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

Code:

function GetBites(t, Mask: LongWord): LongWord;

asm

mov eax, t;

and eax, mask;

end;

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

Code:

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. Если же ассемблер не поможет, надо или переделывать алгоритм, или менять компьютер :))

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

Новые статьи

Ранние статьи

Случайные статьи

Популярные статьи

Добавить комментарий

Системные функции и WinAPI

Вопросы по Delphi

VCL

Язык Дельфи

Облако тегов

Карта сайта