查看完整版本: 学 Delphi 嵌入汇编[11] - 用汇编重写一个 Delphi 函数

学 Delphi 嵌入汇编[11] - 用汇编重写一个 Delphi 函数

[color=#008000]//Delphi 函数
[/color][b][color=#000080]function[/color][/b] DelphiFun(x: Integer): Integer;
[b][color=#000080]begin[/color][/b]
  Result := x * [color=#0000ff]2[/color];
[b][color=#000080]end[/color][/b];

[color=#008000]//汇编函数, 和上面的函数是同样的功能
[/color][b][color=#000080]function[/color][/b] AsmFun(x: Integer): Integer;
[b][color=#000080]asm[/color][/b]
  add eax, eax   [color=#008000]{eax 可以获取第一个参数, 同时又是函数的返回值, 所以可以如此简洁!}[/color]
[b][color=#000080]end[/color][/b];


[color=#008000]//测试 DelphiFun
[/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]34[/color];
  i := DelphiFun(i);
  ShowMessage(IntToStr(i)); [color=#008000]{68}[/color]
[b][color=#000080]end[/color][/b];

[color=#008000]//测试 AsmFun
[/color][b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button2Click(Sender: TObject);
[b][color=#000080]var[/color][/b]
  i: Integer;
[b][color=#000080]begin[/color][/b]
  i := [color=#0000ff]34[/color];
  i := AsmFun(i);
  ShowMessage(IntToStr(i)); [color=#008000]{68}[/color]
[b][color=#000080]end[/color][/b];

做本例时, 我同时做了一个测试:
循环执行 1,000,000 次以内, 基本没有区别; 循环执行 10,000,000 次时, 才有 10 几毫米的差距.
这说明 Delphi 本身速度就足够快了!