初學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;