计算Delphi代码段执行时长

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

踏雪无痕

2287人浏览 · 2014-01-09 20:52:48

踏雪无痕 · 2014-01-09 20:52:48 发布

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

CSDN学习社区

CSDN联合极客时间，共同打造面向开发者的精品内容学习社区，助力成长！

更多推荐