知识大全 利用Delphi建立精确计数器[4]

Posted 时间

篇首语:天下之事常成于困约,而败于奢靡。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 利用Delphi建立精确计数器[4]相关的知识,希望对你有一定的参考价值。

利用Delphi建立精确计数器[4]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!

  procedure TForm Timer Timer(Sender: TObject);

  begin

    Edit Text := FloatToStr(sTimerCount);

    sTimerCount:=sTimerCount ;

  end;

  procedure TForm Button Click(Sender: TObject);

  begin

    proEndCount;

    //显示从开始记数到记数实际经过的时间

    ShowMessage(´实际经过时间´+IntToStr(actTime )+´毫秒´);

  end;

  end

  运行程序 点击 开始倒记时 按钮 程序开始 秒倒记时 由于上面的程序只涉及了记时器程序的原理而没有将错误处理加入其中 所以不要等 秒倒记时结束 点击 结束倒记时 按钮可以结束倒记时 这时在弹出对话框中会显示实际经过的时间(单位为毫秒) 将三个文本框内的时间乘以 再加上实际经过的时间 越接近 则记时精度越高

  下面是在我的机器上的执行结果

  从上面的结果看 由Delphi的Timer控件建立的记时器的精度十分差 无法在实际中使用 而利用高性能频率记数法和多媒体计数器法的误差都在 %以下 考虑到程序中在文本框中显示时间对程序所造成的影响 这个误差在应用中是完全可以忽略的

  另外在运行程序时作者还发现一个问题 如果在倒记时时拖动窗口 文本框中的显示都会停止 而当停止窗口拖放后 多媒体记时器显示会跳过这段时间记时 而其它两种记时器显示倒记时却还是从原来的时间倒数 这说明多媒体记时器是在独立的线程中运行的 不会受到程序的影响

  综合上面的介绍和范例 我们可以看到 如果要建立高精度的记时器 使用多媒体记时器是比较好的选择 而高性能频率记数法比较适合计算某个耗时十分短的过程所消耗的时间(例如分析程序中某个被多次调用的程序段执行时间以优化程序) 因为毕竟高性能频率记数的理论可以达到微秒级别 Timer控件虽然精度比上面两者差很多 但是它使用方便 在要求不高的场合它还是最佳选择

  (最后要说的是 以上的结果都是在Windows X下获得的 作者在Windows 下运行该程序时发现 Timer控件的精度比在Windows X下要高出很多 一般误差在 %以下 这说明Windows 是一个真正的多任务操作系统 再加上Windows NT\\ 的稳定性和易用性 在工业控制或实时检测等领域是一个比较完美的平台)

cha138/Article/program/Delphi/201311/25029

相关参考

知识大全 利用Delphi建立精确计数器[1]

利用Delphi建立精确计数器[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  在Windo

知识大全 利用Delphi建立精确计数器[2]

利用Delphi建立精确计数器[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  下面是具体的

知识大全 Delphi中票据凭证的精确打印

Delphi中票据凭证的精确打印  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  一概述  在银行

知识大全 Delphi学堂之在Delphi中自己建立交叉表

Delphi学堂之在Delphi中自己建立交叉表  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!fu

知识大全 Delphi数据库的动态建立

Delphi数据库的动态建立  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  delphi最吸引人

知识大全 在Delphi中建立和使用别名[2]

在Delphi中建立和使用别名[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  建立使用IN

知识大全 在Delphi中建立和使用别名[3]

在Delphi中建立和使用别名[3]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  设置模式的主

知识大全 在Delphi中建立和使用别名[1]

在Delphi中建立和使用别名[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  通常我们在D

知识大全 Delphi 中动态链接库(dll)的建立和使用[2]

Delphi中动态链接库(dll)的建立和使用[2]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!

知识大全 Delphi 中动态链接库(dll)的建立和使用[1]

Delphi中动态链接库(dll)的建立和使用[1]  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!