计算代码执行时间

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;
【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/yangxuming/p/7605343.html