delphi如何獲得一段代碼執行消耗的時間

  最近客戶一直在問，爲什麼調用我們接口速度會這麼慢，於是我首先就需要驗證到底耗時是多少，對於delphi語言用的不是很多，後來幾經周折有如下方法：

  關鍵是用到一個庫函數GetTickCount

【函數名】 GetTickCount

【返回值】 Long，以毫秒爲單位

通常用來計算某個操作所使用的時間：

var:

    start_time : LONG;

    stop_time:LONG;

begin:

start_time :=GetTickCount;

調用接口操作

stop_time :=GetTickCount;

ShowMessage( IntToStr(stop_time - art_time));

end;