test.pas

本源码是一个算法

//----------------------
//单元名  ：Test
//功能    ：测试单元
//创建时间：2003.12.31
//作者    ：zbird
//E-Mail  :[e-mail]
//----------------------
unit Test;

interface

uses
  Windows, SysUtils, Dialogs;

//统计执行代码所花费的时间
procedure startcount;
procedure endcount;

var
  lgTick1, lgTick2, lgPer: TLargeInteger; //计时用

implementation

procedure startcount;
begin
  QueryPerformanceFrequency(lgPer);     //每秒的震动次数
  lgPer := lgPer div 1000;              //每毫秒的震动次数
  QueryPerformanceCounter(lgTick1);     //系统频率记数器的震荡次数
end;

procedure endcount;
begin
  QueryPerformanceCounter(lgTick2);
  showmessage(inttostr((lgTick2 - lgTick1) div lgPer));
end;

end.