zoukankan      html  css  js  c++  java
  • 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;
    

     

    创建时间 :2019.07.30  更新时间:

  • 相关阅读:
    龟兔赛跑(多线程练习题)
    进程和线程详解
    toString()方法详解
    使用IDEA的Git插件上传项目教程
    js运算符单竖杠“|”的用法和作用及js数据处理
    vue项目axios请求接口,后端代理请求接口404,问题出现在哪?
    jQuery的ajax的post请求json格式无法上传空数组
    es6 学习小记 扩展运算符 三个点(...)
    select2插件使用小记2
    js中多维数组转一维
  • 原文地址:https://www.cnblogs.com/guorongtao/p/11269871.html
Copyright © 2011-2022 走看看