Время убегает.

← →
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]

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

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.

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