Delphi计算程序运行时间
2021-03-11 05:28
阅读：269
标签：span tick ngx hit var code phi car div 转：Delphi 计算程序运行时间 http://www.delphitop.com/html/chengxu/2882.html Delphi计算程序运行时间 标签：span tick ngx hit var code phi car div 原文地址：https://www.cnblogs.com/fansizhe/p/12653624.html
1 var
2 StartTime, EndTime: cardinal;
3 begin
4 StartTime := GetTickCount;
5 sleep(1000);
6 EndTime := GetTickCount;
7 caption := (IntToStr(EndTime - StartTime) + ‘ ms‘);
8 end;
评论
亲，登录后才可以留言！