计算Delphi代码段执行时长
var t1,t2:int64; r1:int64; begin t1:=GetTickCount;//获取开始计数 WINDOWS API sleep(1000);{do...}//执行要计时的代码 t2:=GetTickCount;//获取结束计数值 r1:=t2-t1;//取得计时时间,单位毫秒(ms) showmessage(inttostr(r1));
·
var
t1,t2:int64;
r1:int64;
begin
t1:=GetTickCount;//获取开始计数 WINDOWS API
sleep(1000);{do...}//执行要计时的代码
t2:=GetTickCount;//获取结束计数值
r1:=t2-t1;//取得计时时间,单位毫秒(ms)
showmessage(inttostr(r1));
end;
更多推荐
已为社区贡献3条内容
所有评论(0)