初学 Delphi 嵌入汇编[12] - 在汇编代码中可以直接使用 Result

//在汇编代码中使用 Result
function Fun(x: Integer): Integer;
asm
  mov ecx, &x
  dec ecx           {汇编中的 dec 是减 1 指令, 和 Delphi 是一样的}
  mov @Result, ecx  {在本例中去掉 @ 也可以, 暂时不知怎么回事}
end;


//测试
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := 100;
  i := Fun(i);
  ShowMessage(IntToStr(i)); {99}
end;