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

posted on 2008-01-25 00:06  万一  阅读(4178)  评论(11编辑  收藏  举报