//关于地址参数(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;

posted on 2008-01-25 09:25  万一  阅读(4227)  评论(5编辑  收藏  举报