开发工具:
文件大小: 164kb
下载次数: 0
上传时间: 2017-09-07
详细说明： Delphi高精度计数例程，主程序如下： procedure TForm1.Button1Click(Sender: TObject); //取系统级时间精度： var c1:int64; t1,t2,t3,t4,t5:int64; r1,r2,r3,r4:double; begin QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数) QueryPerformanc eCounter(t1);//WINDOWS API 获取开始计数值 sleep(1000);{do...}//执行要计时的代码 QueryPerformanceCounter(t2);//获取结束计数值 r1:=(t2-t1)/c1;//取得计时时间，单位秒(s) Edit1.Text:=FloatToStr(r1); Edit1.Refresh; sleep(1000);{do...}//执行要计时的代码 QueryPerformanceCounter(t3);//获取结束计数值 r2:=(t3-t2)/c1;//取得计时时间，单位秒(s) Edit2.Text:=FloatToStr(r2); Edit2.Refresh; sleep(1000);{do...}//执行要计时的代码 QueryPerformanceCounter(t4);//获取结束计数值 r3:=(t4-t3)/c1;//取得计时时间，单位秒(s) Edit3.Text:=FloatToStr(r3); Edit3.Refresh; sleep(1000);{do...}//执行要计时的代码 QueryPerformanceCounter(t5);//获取结束计数值 r4:=(t5-t4)/c1;//取得计时时间，单位秒(s) Edit4.Text:=FloatToStr(r4); Edit4.Refresh; //r1:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒(ms) //r1:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒 //showmessage(floattostr(r1)); end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
