像一站到底里面的倒計時，從20:00到00:00，想請教一下實作的思路啊。。。具體一點的，剛學delphi不久啊，哪位大神來幫幫忙，謝謝啦~~~
uj5u.com熱心網友回復：
使用Timer控制元件，將interval值設為1,這個定時器每一微秒就會觸發一次uj5u.com熱心網友回復：
可是前面的秒數怎樣控制？
uj5u.com熱心網友回復：
procedure TForm1.FormCreate(Sender: TObject);
begin
T := 20.000;
Timer1.Interval := 1;
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var T:single;
begin
T := T - 0.001;
if T = 0.000 then Timer1.Enabled := false;
end
大概是這樣吧……
uj5u.com熱心網友回復：
我怎么沒想到用小數！！
我一直在用整數...
uj5u.com熱心網友回復：
太謝謝啦！這么快就打出代碼！
uj5u.com熱心網友回復：
timer控制元件的精度50就幾乎極限了，50以下誤差就拉大了，想得到1毫秒精度更是不可能。uj5u.com熱心網友回復：
誤差有多大？我在做類似一站到底的程式，里面用到的倒計時，這精度要求應該不高吧?
uj5u.com熱心網友回復：
居然是說微秒。。。。DelphiX組件有一個高速timer，可以直接把interval設為0
俺就擼過，啥也不說
uj5u.com熱心網友回復：
設到0是個什么速度？？
還有個問題用20.000-0.001的話形式上不對啊，時間應該是20:00啊！
uj5u.com熱心網友回復：
還是有問題，我是想顯示出來，怎樣弄？？顯示成20:00這種形式，還麻煩指導一下！
uj5u.com熱心網友回復：
莫意思看錯了以為是倒計時20秒……uj5u.com熱心網友回復：
這個計時……是倒數20分鐘嗎？這樣的話就應該是設定60秒一個周期……T := 60.000;
Min := 20;//整形
在Timer1Timer事件中
是
T := T - 0.001;
if T := 0.000 then
begin
T := 60.000;
Min := Min - 1;
en;；
還有如果按樓上sololie所說，不無道理，實際上要那么大的精度也沒用
uj5u.com熱心網友回復：
只要在顯示上做些手腳，可以用50的精度做出1精度的效果uj5u.com熱心網友回復：
那要怎樣顯示呢？我試了一下single后面是好多位，而且中間的：也不知道怎么弄，
uj5u.com熱心網友回復：
是倒數20秒，
uj5u.com熱心網友回復：
倒數二十秒……有這種Second:MicroSecond的表示方法嗎？uj5u.com熱心網友回復：
這種方法我試過，在20秒倒計時到毫秒精度的時候sec-1就會非常卡頓！根本達不到效果
uj5u.com熱心網友回復：
有啊！就像一站到底里面回答問題時的20秒倒計時。。
uj5u.com熱心網友回復：
不卡才怪呢……把CPU時間都占了uj5u.com熱心網友回復：
那怎么解決啊？
uj5u.com熱心網友回復：
我可以說……我不知道嗎？嘿嘿，如果這個精度只是為了滿足視覺上的需求的話，完全沒必要使用0.001的精度，你可以設定精度為0.008，就不會那么卡了，而且顯示倒計時是千分位上的數字也還是跳動的……這樣可以么？uj5u.com熱心網友回復：
哈哈，毫秒，0.01的精度就夠了啊，關鍵是sec-1的時候會卡uj5u.com熱心網友回復：
顯示幕每秒才重繪60Hz（常見LCD)，你在顯示方面根本不需要每回圈一次就更新一次UI。可以用QueryPerformanceFrequency和QueryPerformanceCounter結合，使用的是CPU的tick計數，肯定能達到你的精度要求。
用這兩個API實作高精度定時，設定一個全域變數，保存流逝的時間，放在一個單獨的執行緒中，并將執行緒固定在CPU的一個核心上。
在主執行緒中用普通的Timer定時讀取這個全域變數，計算后更新UI即可！
uj5u.com熱心網友回復：
可不可以給個大概的代碼啊？新人不會控制執行緒啊，不是很懂，萬分感謝！
uj5u.com熱心網友回復：
人眼是每秒10幀 到微妙就是每秒1000幀了 只有神才能看到uj5u.com熱心網友回復：
Delphi中好像是有TThread類吧，上學時候用過delphi，現在作業都忘了。你搜一下吧！ 我只是提供個思路，你可以在網上找找這兩個API的資料和用法。
uj5u.com熱心網友回復：
毫秒是1000幀，微妙就1000000幀了！！
uj5u.com熱心網友回復：
其實我想做的是百分之一秒。。
uj5u.com熱心網友回復：
汗，那就是10ms，要這么復雜干啥！
[qoute=參考 msdn:]
作業系統提供了幾個精度不同的計時器：
Function Units Resolution
---------------------------------------------------------------------------
Now, Time, Timer seconds 1 second
GetTickCount milliseconds approx. 10 ms
TimeGetTime milliseconds approx. 10 ms
QueryPerformanceCounter QueryPerformanceFrequency same
[/qoute]
uj5u.com熱心網友回復：
GetTickCount和TimeGetTime能達到你的要求http://support.microsoft.com/kb/172338
uj5u.com熱心網友回復：
LZ貌似要微秒級？0.001毫秒？uj5u.com熱心網友回復：
微妙啊！！！uj5u.com熱心網友回復：
在xp下timer精度一般是1/64秒。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/130124.html
標籤：語言基礎/算法/系統設計