Delphi按位运算问题

Question

F0 7D 00 C8 00 ->11110000 01111101 00000000 11001000 00000000

前4位1111=15表示，接下来的30位用于存储2个值，每个值15位， a=000001111101000=1000,b=000001100100000=800（有符号位值）

1111000001111101000000001100100000 用“000000”填充，因此它将是 5 个字节。

如何制作这样一个delphi程序来改变a&的值？ b、

过程setBit(a,b:Integer)；

Answer 1

我猜你使用LSB存储顺序。

试试这个：

procedure SetBit(const a,b: cardinal; var dest);
var d: Int64 absolute dest;
begin
  d := $F000000000+(Int64(a) shl 21)+b shl 6;
end;

它将更改 dest 指向的 8 个字节值，将数据存储到前 5 个字节中。

Answer 2

设置位的最简单方法是使用汇编指令 BTS。类似的东西（未经测试）

procedure SetBit(var L; bit: Longint);
asm
  BTS [EAX], EDX
end;

应该可以工作。请参阅http://www.intel.com/Assets/PDF/manual/253666。 pdf