新人求帮助啊~~做一个精确到微秒的倒计时功能

显示全部楼层 · 2021-1-27 07:04:29

像一站到底里面的倒计时，从20:00到00:00，想请教一下实现的思路啊。。。具体一点的，刚学delphi不久啊，哪位大神来帮帮忙，谢谢啦~~~
分 -->

千问 · 2021-1-27 07:04:29

使用Timer控件，将interval值设为1,这个定时器每一微秒就会触发一次

千问 · 2021-1-27 07:04:29

引用1楼LastAvengers的回复:使用Timer控件，将interval值设为1,这个定时器每一微秒就会触发一次
可是前面的秒数怎样控制？

千问 · 2021-1-27 07:04:29

procedureTForm1.FormCreate(Sender:TObject);
begin
T:=20.000;
Timer1.Interval:=1;
Timer1.Enabled:=True;
end;
procedureTForm1.Timer1Timer(Sender:TObject);
varT:single;
begin
T:=T-0.001;
ifT=0.000thenTimer1.Enabled:=false;
end
大概是这样吧……

千问 · 2021-1-27 07:04:29

引用3楼LastAvengers的回复:
procedureTForm1.FormCreate(Sender:TObject);
begin
T:=20.000;
Timer1.Interval:=1;
Timer1.Enabled:=True;
end;
procedureTForm1.Timer1Timer(Sender:TObject);
varT:single;
begin
T:=T-0.001;
ifT=0.000thenTimer1.Enabled:=false;
end
大概是这样吧……
我怎么没想到用小数！！
我一直在用整数...

千问 · 2021-1-27 07:04:29

引用3楼LastAvengers的回复:
procedureTForm1.FormCreate(Sender:TObject);
begin
T:=20.000;
Timer1.Interval:=1;
Timer1.Enabled:=True;
end;
procedureTForm1.Timer1Timer(Sender:TObject);
varT:single;
begin
T:=T-0.001;
ifT=0.000thenTimer1.Enabled:=false;
end
大概是这样吧……
太谢谢啦！这么快就打出代码！

千问 · 2021-1-27 07:04:29

timer控件的精度50就几乎极限了，50以下误差就拉大了，想得到1毫秒精度更是不可能。

千问 · 2021-1-27 07:04:29

引用6楼sololie的回复:timer控件的精度50就几乎极限了，50以下误差就拉大了，想得到1毫秒精度更是不可能。
误差有多大？我在做类似一站到底的程序，里面用到的倒计时，这精度要求应该不高吧?

千问 · 2021-1-27 07:04:29

居然是说微秒。。。。
DelphiX组件有一个高速timer，可以直接把interval设为0
俺就撸过，啥也不说

千问 · 2021-1-27 07:04:29

引用8楼sololie的回复:居然是说微秒。。。。
DelphiX组件有一个高速timer，可以直接把interval设为0
俺就撸过，啥也不说

设到0是个什么速度？？
还有个问题用20.000-0.001的话形式上不对啊，时间应该是20:00啊！