Delphi计算程序运行时间

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;

转：Delphi 计算程序运行时间 http://www.delphitop.com/html/chengxu/2882.html

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/fansizhe/p/12653624.html