初学Delphi嵌入汇编[9] - asm 可以代替 begin

初学Delphi嵌入汇编[9] - asm 可以代替 begin2012-04-12 博客园万一//可以用 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;