计算代码执行时间 

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;

 

posted @ 2017-09-28 10:02  夏天的西瓜君  阅读(167)  评论(0)  编辑  收藏  举报