//Delphi 函数
function DelphiFun(x: Integer): Integer;
begin
Result := x * 2;
end;
//汇编函数, 和上面的函数是同样的功能
function AsmFun(x: Integer): Integer;
asm
add eax, eax {eax 可以获取第一个参数, 同时又是函数的返回值, 所以可以如此简洁!}
end;
//测试 DelphiFun
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := 34;
i := DelphiFun(i);
ShowMessage(IntToStr(i)); {68}
end;
//测试 AsmFun
procedure 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 本身速度就足够快了!