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

本文整理自网络，侵删。

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

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

var
    i:integer;
    t:integer;
begin
    t := GetTickCount();
    for I := 0 to 10000 do
    begin
        //code
    end;
    showmessage(inttostr(GetTickCount()-t));    
end;

 

相关阅读 >>

Delphi indy tidhttp tidhttpserver post get

Delphi 日期时间函数

Delphi 用Delphi提升进程权限为debug权限

Delphi 获取系统启动文件夹路径

Delphi 测试 tstreamwriter、tstreamreader

Delphi获取13位格林治时间实现方法

Delphi 如何判断clipboard剪切板中的内容的类型

Delphi 使用 idhttp 获取 utf-8 编码的中文网页

Delphi searchbox1 基本用法

Delphi 双击关闭pagecontrol中的一个分页

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi-获取毫秒-计算代码运行的时间