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

//可以用 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;

转载于:https://www.cnblogs.com/del/archive/2008/01/24/1052053.html