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;

 

posted @ 2020-09-19 23:49  Thenext  阅读(393)  评论(0)  编辑  收藏  举报