//可以用 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;
|
请发表评论