初学Delphi嵌入汇编[12]

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