很多时候,我们想获取程序代码的执行时间,来计算代码的执行效率.
具体做法如下,非常简单:
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;
很多时候,我们想获取程序代码的执行时间,来计算代码的执行效率.
具体做法如下,非常简单:
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