Delphi:简单的 hh:mm:ss 计时器

Question

有人有 hh:mm:ss 计时器(Timer1.Interval:=1000)的简短而有效的代码吗？我可以做一个，但我想要一些高效的东西。

谢谢!

我的代码:

Var MyTime:TTime;

MyTime:=EncodeTime(0,0,0,0);

procedure TForm1.Timer1Timer(Sender: TObject);
begin
MyTime:=incsecond(Mytime,1);
form1.Label1.Caption:='Time: '+TimeToStr(MyTime);
end;

Answer 1

添加一个 Var 来跟踪计时器何时启动。

  TForm1 = class(TForm)
  private
    timerStart: TDateTime;
  public
    proceure StartTimer;
  end;

启动定时器的过程

proceure TForm1.StartTimer;
beign
 timerStart := now();
 timer1.interval = 1000;
 timer1.enabled := true;
end;

在 OnTimer 事件中

Label1.caption := formatdatetime('hh:nn:ss', timerStart - now()); //nn is for minutes.

这应该显示任何间隔所花费的正确时间。
即 5000 显示每 5 秒所花费的时间。

注意:未经测试，运行计时器超过 24 小时可能无法显示正确的时差。为此，我认为日期时间格式字符串应该类似于 dd hh:nn:ss 来显示过去的天数