首页 / 软件开发 / Delphi / 初学Delphi嵌入汇编[11] - 用汇编重写一个Delphi函数

初学Delphi嵌入汇编[11] - 用汇编重写一个Delphi函数2012-04-13 博客园 万一//Delphi 函数function DelphiFun（x: Integer）: Integer;
begin
Result := x * 2;
end;

//汇编函数, 和上面的函数是同样的功能function AsmFun（x: Integer）: Integer;
asm
add eax, eax {eax 可以获取第一个参数, 同时又是函数的返回值, 所以可以如此 简洁！}
end;

//测试 DelphiFunprocedure TForm1.Button1Click（Sender: TObject）;
var
i: Integer;
begin
i := 34;
i := DelphiFun（i）;
ShowMessage（IntToStr（i））; {68}
end;

//测试 AsmFunprocedure TForm1.Button2Click（Sender: TObject）;
var
i: Integer;
begin
i := 34;
i := AsmFun（i）;
ShowMessage（IntToStr（i））; {68}
end;

做本例时, 我同时做了一个测试:

循环执行 1,000,000 次以内, 基本没有区别; 循环执行 10,000,000 次时, 才有 10 几毫米的差距.

这说明 Delphi 本身速度就足够快了！