//关于地址参数(var/out)
function Fun(var x,y: Integer): Integer;
asm
  mov eax, x         {现在 eax 中只是 x 的地址}
  mov eax, [eax]     { [eax] 是取值, 是不是类似于 P^ ? }
  mov edx, y
  add eax, [edx]
  //mov @Result, eax {在这里, 这句可有可无}
end;


//测试
procedure TForm1.Button1Click(Sender: TObject);
var
  a,b: Integer;
begin
  a := 1;
  b := 8;
  a := Fun(a,b);
  ShowMessage(IntToStr(a)); {9}
end;

转载请注明：懒人档案室 » 嵌入汇编[13] – 地址参数用 [ ] 取值