查看完整版本: 初学 Delphi 嵌入汇编[9] - asm 可以代替 begin

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

[color=#008000]//可以用 asm 代替 begin
[/color][b][color=#000080]function[/color][/b] Fun(x: Integer): Integer;
[b][color=#000080]asm[/color][/b]
  mov eax, x
  inc eax
[b][color=#000080]end[/color][/b];
[color=#008000]{
  汇编中的 inc 指令和 Delphi 中的 inc 是一样的;
  本例也同时证明 eax 寄存器确实保存着函数的返回值.
}[/color]

[b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button1Click(Sender: TObject);
[b][color=#000080]var[/color][/b]
  i: Integer;
[b][color=#000080]begin[/color][/b]
  i := [color=#0000ff]8[/color];
  i := Fun(i);
  ShowMessage(IntToStr(i)); [color=#008000]{9}[/color]
[b][color=#000080]end[/color][/b];