计算Delphi代码段执行时长

最新推荐文章于 2024-04-18 10:19:23 发布

踏雪无痕

最新推荐文章于 2024-04-18 10:19:23 发布

阅读量2.2k

点赞数

分类专栏： Delphi程序实例

Delphi程序实例专栏收录该内容

44 篇文章 4 订阅

订阅专栏

var
  t1,t2:int64;
  r1:int64;
  begin
    t1:=GetTickCount;//获取开始计数 WINDOWS API
    sleep(1000);{do...}//执行要计时的代码
    t2:=GetTickCount;//获取结束计数值
    r1:=t2-t1;//取得计时时间，单位毫秒(ms)
    showmessage(inttostr(r1));
  end;