//關於地址參數(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;