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

最新推荐文章于 2022-07-28 10:11:48 发布

weixin_30780221

最新推荐文章于 2022-07-28 10:11:48 发布

阅读量225

点赞数

原文链接：http://www.cnblogs.com/del/archive/2008/01/25/1052262.html

版权

//在汇编代码中使用 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;

转载于:https://www.cnblogs.com/del/archive/2008/01/25/1052262.html