Delphi使用TStopwatch计时器精确计时

2021-03-11 17:27

阅读：552

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

引用 System.Diagnostics 单元

属性：

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

方法

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

示例:

 1 /// 
 2 /// 测试 TStopwatch
 3 /// 
 4 /// 
 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

上一篇：Acwing-----基础课复习

下一篇：阿里大牛私下赚钱，都在使用的一些免费API接口最佳总结建议收藏

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：Delphi使用TStopwatch计时器精确计时
文章链接：http://soscw.com/index.php/essay/63291.html

亲，登录后才可以留言！

Delphi使用TStopwatch计时器精确计时

评论

热门文章

推荐文章

最新文章

置顶文章