初学Delphi嵌入汇编[11]

//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 本身速度就足够快了!