中華網校

系列網站: 中華網校 | www.網校.com | 3D模型 | 中華網校教育

電腦網校 | 業界新聞 | 職業網校 | 網校寶典 | 軟件下載 | 網校論壇 | 網校聯盟

電腦入門 | 網頁設計 | 網絡編程 | 圖形圖象 | 三維空間 | 多媒體 | 程序語言 | 操作系統 | 系統專題 | 辦公應用 | 軟件寶典 | 硬件天下 | 

 

您的位置:首頁 >> 程序語言 >> Delphi >> 新聞正文

Delphi高精度計時方法  

作者:yzsind  時間:2004-12-27 21:36:49  來自:CSDN  責任編輯:www.kxazyv.tw  閱讀次數:

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高精度計時方法
用Delphi6制作網頁特效軟件
Delphi多層應用程序的實現
Delphi下漢字輸入法的編程及使用

  中華網校依法保護知識產權,如果我們的文章有涉及或侵犯您的有關權益,請即時與我們 聯系, 注明網址及文章,我們會即時處理或刪除,感謝您的合作!中華網校email
  中華網校由廣州市中六電腦城智銳計算機專業培訓學院及中華網校技術中心提供網絡支持未經本站許可任何個人網站、書刊報社一律不得私自復制,轉載本站內容!

關于中華網校 | 廣告服務 | 版權聲明 | 投稿指南 | 網站合作 | 友情鏈接 | 網站地圖

 

版權所有 中華網校 & 智銳網校 1999-2004 COPYRIGHT (C) 1999-2004 www.kxazyv.tw ALL RIGHTS RESERVED

 
河北快3