var
t1,t2:int64;
r1:int64;
begin
t1:=GetTickCount;//获取开始计数 WINDOWS API
sleep(1000);{do...}//执行要计时的代码
t2:=GetTickCount;//获取结束计数值
r1:=t2-t1;//取得计时时间,单位毫秒(ms)
showmessage(inttostr(r1));
end;
计算Delphi代码段执行时长
最新推荐文章于 2024-04-18 10:19:23 发布