随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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

posted on 2008-01-24 20:04  万一  阅读(...)  评论(...编辑  收藏