大家好, 請問用Timer元件編譯出來的程式,運行的速度與操作系統有關嗎？(硬件除硬盤外完全相同) 如下程式,Timer1.Interval:=10 在運行10秒鐘後我的電腦StaticText1.Caption顯示1000左右.而在某些電腦測試卻只能顯示600左右.請問是什麼原因？不知各位有沒有碰到這種問題，請指導一下，謝謝!

procedure TForm1.Timer1Timer(Sender: TObject);
var
  iSend:Integer ;
begin
  iSend := iSend   1 ;
  StaticText1.Caption := inttostr(iSend) ;
end;

您好: 會有這種狀況是因為 1.Timer本身的精密度不夠. 2.您設定Interval為10,就是10/1000,0.01秒,每0.01秒就做一次動作,也就會出現不同電腦,cpu速度不同產生的結果不同了. 下面網址有自己做timer的測試給您參考一下 http://dev.csdn.net/develop/article/35/35151.shtm 發表人 - supman 於 2005/05/19 10:38:01

hi,supman您好! 我上面有說:硬件除硬盤外完全相同 測試時我的電腦速度比較快10秒顯示1000左右, 所以我就拿另一個硬盤在我的機子上重新安裝系統並測試.結果10秒鐘顯示也只有600左右.按理論上說應該速度更快啊，因為沒有安裝其他程序.換上我的硬盤就可以顯示1000左右,不知怎麼回事?所以想說會不會與操作系統或要安裝其他軟件有關呢?真不知道如何是好啊. 注:兩個硬盤同樣是win2000系統,版本都一樣.

可以到深度歷險 或 Torr'y 網站下載 有精密度的 Timer 元件 好像是透過 TimeSetEvent API 處理。 可設定準確值(誤差值) ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

您好: 您設成Interval:= 60看看會不會有這問題.

謝wameng版主的回覆,我找時間試看看. supman您好,我試過將Interval:= 60,運行10秒鐘兩者顯示相差6, 所以等到運行60秒鐘後,快的結果是1000,而慢的為960

您好: 設為60時落差會變小是因為我前面第一點所講的,timer精密度的問題,timer只能到55ms,也就是說您要大約設在Interval:= 60,才會準確,而之前您的設定是10ms,差異值就會變大了. 要解決這問題您只能像wameng大所說的去找元件,不然就是自己寫timer.

謝謝!看來只有先這樣了. 自己寫Timer倒是還沒想過，因為我還只是Delphi新手 往後還請多多關照哦!