将4个Byte合成1个Integer (此标题是在万一的博客上看到的 有另一种解法 涉及到内联汇编)

将4个Byte合成1个Integer (此标题是在万一的博客上看到的 有另一种解法 涉及到内联汇编

算是本博的第一个内联汇编的代码 学习Delphi 就是看到他能内联汇编 很爽

procedure TForm1.btn1Click(Sender: TObject);
var bs:array of Byte;
    i:LongWord;
begin
  SetLength(bs, 4);
  bs[0] := $CC;
  bs[1] := $DD;
  bs[2] := $EE;
  bs[3] := $FF;
  asm
      mov eax,bs[0]
      mov eax,[eax]
      mov i,eax
  end;
  ShowMessage(InttoHex(i,4));
end;