码迷,mamicode.com
首页 > Windows程序 > 详细

Delphi使用TStopwatch计时器精确计时

时间:2020-04-03 21:57:52      阅读:113      评论:0      收藏:0      [点我收藏+]

标签:set   amp   top   style   间隔   运行   精确   测量   procedure   

引用 System.Diagnostics 单元

属性:

  Elapsed       获取当前实例测量得出的总运行时间。
  ElapsedMilliseconds  获取当前实例测量得出的总运行时间(以毫秒为单位)。
  ElapsedTicks      获取当前实例测量得出的总运行时间(用计时器计时周期表示)。
  IsRunning        获取一个指示 Stopwatch 计时器是否在运行的值。

方法

  GetTimestamp   获取计时器机制中的当前最小时间单位数。
  Reset        停止时间间隔测量,并将运行时间重置为零。
  Restart       停止时间间隔测量,将运行时间重置为零,然后开始测量运行时间。
  Start         开始或继续测量某个时间间隔的运行时间。
  StartNew       对新的 Stopwatch 实例进行初始化,将运行时间属性设置为零,然后开始测量运行时间。
  Stop         停止测量某个时间间隔的运行时间

 

示例:

 1 /// <summary>
 2 /// 测试 TStopwatch
 3 /// </summary>
 4 /// <param name="Sender"></param>
 5 procedure TForm1.btn1Click(Sender: TObject);
 6 var
 7   timer: TStopwatch;
 8   I, n: Int64;
 9   tt: Int64;
10 begin
11   timer := TStopwatch.Create;
12   ///开始计时
13   timer.Start;
14   n := 0;
15   for I := 0 to 100000000 do
16   begin
17     Inc(n);
18   end;
19   ///结束计时
20   timer.Stop;
21   ///获取毫秒数的间隔
22   tt := timer.ElapsedMilliseconds;  //408
23 end;

 

Delphi使用TStopwatch计时器精确计时

标签:set   amp   top   style   间隔   运行   精确   测量   procedure   

原文地址:https://www.cnblogs.com/Thenext/p/12628897.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!