Delphi-获取毫秒-计算代码运行的时间

很多时候,我们想获取程序代码的执行时间,来计算代码的执行效率.

具体做法如下,非常简单:

 1 var
 2     i:integer;
 3     t:integer;
 4 begin
 5     t := GetTickCount();
 6     for I := 0 to 10000 do
 7     begin
 8         //code
 9     end;
10     showmessage(inttostr(GetTickCount()-t));    
11 end;

 

转载于:https://www.cnblogs.com/YiShen/p/9687735.html