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