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

posted @ 2020-04-07 15:25  范思哲  阅读(1214)  评论(0)  编辑  收藏  举报