• 网络学院
  • IT资讯
  • 操作系统
  • 网络技术
  • 软件应用
  • 办公软件
  • 编程技术
  • 网站架设
  • 数据库类
  • 平面设计
  • 多媒体类
  • 游戏资讯
  • 教学论文
  • 认证考试
Delphi高精度计时方法
  站点:
  • 首 页
  • 最新软件
  • 文章教程
  • 国内软件
  • 国外软件
  • 绿色软件
  • 源码下载
  • 字体下载
Delphi高精度计时方法
软件发布 Delphi高精度计时方法
网络软件 系统工具 应用软件 联络聊天 图形图像 多媒体类 行业软件 游戏娱乐 编程开发 安全相关 教育教学 数码软件 绿软下载
热门软件: QQ 瑞星 pplive e话通 木马克星 千千静听 office2000 五笔字根 Photoshop 视频分割
返回文章教程首页 >> 文章首页 >> 编程技术 >> Delphi教程 >> Delphi高精度计时方法

Delphi高精度计时方法

添加时间: 2006-2-25 5:01:57  作者: Delphi教程  阅读次数:58   来源: http://www.d9soft.com

        DELPHI高精度计时方法,取毫秒级时间精度(方法一):
  


  //取毫秒级时间精度(方法一):
  var
  t1,t2:int64;
  r1:int64;
  begin
  t1:=GetTickCount;//获取开始计数 WINDOWS API
  sleep(1000);{do...}//执行要计时的代码
  t2:=GetTickCount;//获取结束计数值
  r1:=t2-t1;//取得计时时间,单位毫秒(ms)
  showmessage(inttostr(r1));
  end;


  //取毫秒级时间精度(方法二):
  //use DateUtils;//引用DateUtils单位
  var
  t1,t2:tdatetime;
  r1:int64;
  begin
  t1:=now();//获取开始计时时间
  sleep(1000);{do...}//执行要计时的代码
  t2:=now();//获取结束计时时间
  r1:=SecondsBetween(t2,t1);//取得计时时间,单位秒(s)
  r1:=MilliSecondsBetween(t2,t1);//取得计时时间,单位毫秒(ms)
  showmessage(inttostr(r1));
  end;

  //注:以上两种方式经本人测试好像只能产生0.01秒的计时精度

  //取系统级时间精度:
  var
  c1:int64;
  t1,t2:int64;
  r1:double;
  begin
  QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数)
  QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值
  sleep(1000);{do...}//执行要计时的代码
  QueryPerformanceCounter(t2);//获取结束计数值
  r1:=(t2-t1)/c1;//取得计时时间,单位秒(s)
  r1:=(t2-t1)/c1*1000;//取得计时时间,单位毫秒(ms)
  r1:=(t2-t1)/c1*1000000;//取得计时时间,单位微秒
  showmessage(floattostr(r1));
  end;

 

上下文章:

 

上一篇文章: Delphi必学技巧:枚举打印机 下一篇文章: 想成高手吗?快来学Delphi快捷键

相关文章:

  • vista隐蔽的注册表垃圾清理方法
  • 在局域网中配置Vlan的基本方法
  • 常见问题诊断方法---(常见错误篇)
  • 常见问题诊断方法---(SQL*NET篇)
  • Oracle联机日志文件丢失处理方法

相关软件:

  • ADSL拨号计时器 V7.35 绿色版
  • 学习方法宝典 2006 新春贺年版
  • All AHM Triton Tools 2002 Borland Delphi V7.0
  • 佐尔表达式控件 For DELPHI 7.0 V3.1.12
  • Delphi Project Launcher V1.5
  • Delphi 5.0 完整汉化版

 

快速导航

  • 网络学院
  • 精品汇聚
  • 字体下载
  • 教程下载
  • ASP源码
  • PHP源码
  • Net源码
  • JSP 源码

编程技术分类导航

  • ASP & ASP.NET教程
  • PHP教程
  • JSP教程
  • C/C++教程
  • VB & VB.NET教程
  • VC教程
  • Delphi教程
  • BCB教程
  • VFP教程
  • PB教程
  • JAVA教程
  • XML教程
  • C#教程
  • CGI教程

本类经典文章推荐

  • Delphi的两个实用技巧(1)播放Flash
  • Delphi的两个实用技巧(2)巧用Wind...
  • delphi实例编程之--制作可随处拖放...
  • 关于VisiBroker For Delphi的使用...
  • 关于VisiBroker For Delphi的使用...
  • 关于VisiBroker For Delphi的使用...
  • 在线播放器DIY
  • Delphi让你发送Flash电子邮件
  • 在窗口标题区添加按钮
  • 用Delphi 6编程实现自动标注汉语拼...

Delphi教程阅读排行

  • Delphi7从入门到精通之历数Delphi...
  • Delphi的两个实用技巧(1)播放Flash
  • Delphi7从入门到精通之认识Delphi...
  • delphi实例编程之--制作可随处拖放...
  • Delphi控件,我们也可以(1)
  • Delphi的两个实用技巧(2)巧用Wind...
  • 在线播放器DIY
  • Delphi控件,我们也可以(2)
  • Spcomm串口控件的例程
  • 用Delphi + DirectX开发简单RPG游...

编程技术阅读总排行

  • VB入门教程之一
  • Java连接数据库实例
  • 第二章 PowerBuilder 入门之创建新...
  • VC++之List Box/Check List Box控...
  • 第一章 什么是PowerBuilder
  • VC++ List Ctrl控件
  • VC++ Combo Box/Combo Box Ex控件
  • 学C++不得不看的一篇文章
  • VB入门教程之二
  • VC++之Button控件

广告位置

字母检索 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 回到顶部

关于我们 | 版权声明 | 免责条款 | 广告联系 | 软件发布 | 下载帮助 | 下载排行 | 网站地图 | 特别鸣谢 | 友情连接

copyright; 2005-2008 D9soft.com 第九软件网 版权所有