Скачать: CL | DM;

Время убегает.   Найти похожие ветки 

← →
Suharew ©   (2003-10-13 18:47) [0]


procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Label9.Caption:=timetostr(time);
form1.Label12.Caption:=timetostr(strtotime(form1.Label12.Caption)+strtotime("0:00:01"));
end;


Почему то в Label12 примерно через 40-50 секунд время начинает отставать. т.е. разница идет в секундах между Label12 и Label9.
И так минут за 10 отстование составляет около минуты. Почему так происходит. Есть ли какой нибудь генератор времени который точно будет осчитывать секунды.

---

← →
Е-Моё имя ©   (2003-10-13 19:00) [1]

округление

---

← →
Е-Моё имя ©   (2003-10-13 19:00) [2]

есть

---

← →
Е-Моё имя ©   (2003-10-13 19:00) [3]

по сабжу: ты прав

---

← →
Suharew ©   (2003-10-13 19:05) [4]

Ну так что с этим делать?

---

← →
Basilio ©   (2003-10-13 19:25) [5]

TTimer ставит сообщения в очередь точно. (ну, с точностью до 1мс), а вот когда очередь дойдёт до обработчика - это тот ещё вопрос..

Ё-мое прав с округлением.

---

← →
NikB   (2003-10-14 01:38) [6]

To Basilio © (13.10.03 19:25) [5]

Esli eto tak, to togda inogda Timer1Timer budet viizivatsa Reentrantno (povtornii viizov, kogda esche ne okonchen)

To Suharew © (13.10.03 19:05) [4]

Mojesh zaponimat GetTickCount pri Create i pri kajdogo viizova Timer1Timer viichislat Timer1.Interval kajdii raz, tak, chtob delal kompensaciu.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c