初学Delphi嵌入汇编[9]

//可以用 asm 代替 begin

function Fun(x: Integer): Integer;
asm
　mov eax, x
　inc eax
end;
{
　汇编中的 inc 指令和 Delphi 中的 inc 是一样的;
　本例也同时证明 eax 寄存器确实保存着函数的返回值.
}
procedure TForm1.Button1Click(Sender: TObject);
var
　i: Integer;
begin
　i := 8;
　i := Fun(i);
　ShowMessage(IntToStr(i)); {9}
end;