Битовые операции Опции

[Scorp_Freeman]

Значит есть b:byte;
Как установить n-й бит в значение х ?

Либо какими командами ассемблера это можно сделать ?

asm
???
???
end;

[hardcase]

Как установить n-й бит в значение х ?

x := x or (1 shl n);

[Scorp_Freeman]

Как установить n-й бит в значение х ?

Извените, я кажется ошибся в формулировке вопроса) "Установить" не в смысле записать 1 а поместить туда значение бита(0 либо 1)

[hardcase]

Извените, я кажется ошибся в формулировке вопроса) "Установить" не в смысле записать 1 а поместить туда значение бита(0 либо 1)

Однако переклинило......

mask := (1 shl n);
bit := (b2 and mask);
if( boolean(bit) ) then b1 := b1 or mask;
else b1 := b1 and not mask;

Сообщение отредактировано: hardcase - 13.04.2007 23:09

[Scorp_Freeman]

спасибо !!! раздуплил наконец то ))