delphi 的GetTickCount计时用法缺陷及管制

迪丽热爱

已于 2023-06-23 16:09:21 修改

阅读量1k

点赞数 1

分类专栏： delphi7 文章标签：开发语言

于 2022-04-14 13:28:58 首次发布

本文链接：https://blog.csdn.net/lovemelovefish/article/details/124169666

版权

delphi7 专栏收录该内容

13 篇文章

订阅专栏

本文探讨了如何修正GetTickCount在长时间运行中可能出现的时间偏差问题，通过引入全局变量和绝对值比较，确保程序逻辑的正确执行。作者展示了如何使用`Abs`函数来避免负值比较，并举例说明了代码调整过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.常用方式

  var liNowTick : Integer; //局部变量
  var liOkTick : Integer; //全局变量
   liNowTick := GetTickCount div 1000; 
  if (liNowTick - liOkTick ) < 10 then
  begin
     continue;
  end;
  
  liOkTick  :=liNowTick ;

2.但是GetTickCount 折算成天是49.7。也就是说当服务程序连续跑了50会存在
例如 (liNowTick - liOkTick ) = - 4293000 即liNowTick < liOkTick的情况。

故针对这种情况就需要加上管制!!!

  var liNowTick : Integer; //局部变量
  var liOkTick : Integer; //全局变量
   liNowTick := GetTickCount div 1000; 
  if (liNowTick - liOkTick ) < 10 then
  begin
     //if (liNowTick - liOkTick ) <  -4293000  
     if (liNowTick <  liOkTick ) 
     then  liOkTick :=0；
     continue;
  end;
  
  liOkTick  :=liNowTick ;

3.使用绝对值函数Abs

      Nowtick := GetTickCount() div 1000;  
      if Abs(Nowtick - aRe_Cmd[i].hb_tick) > 10 then   // 10检查一次
       begin
          ClearRePlcCMD(i);
       end;