随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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

posted on 2008-01-24 23:34  万一  阅读(...)  评论(...编辑  收藏