Как выключить бит в числе?
procedure BitOff(var N: Longint; nBit: Byte);
begin
N := N and ((1 shl nBit) xor $FFFFFFFF);
end;
Подарите своему ребенку конструктор лего
procedure BitOff(var N: Longint; nBit: Byte);
begin
N := N and ((1 shl nBit) xor $FFFFFFFF);
end;
Подарите своему ребенку конструктор лего