| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Время убегает. [D6, Win95/98]
Suharew © (2003-10-13 18:47:00)
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 отстование составляет около минуты. Почему так происходит. Есть ли какой нибудь генератор времени который точно будет осчитывать секунды.
NikB (2003-10-14 01:38:00) [1]
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.
Basilio (2003-10-13 19:25:00) [2]
TTimer ставит сообщения в очередь точно. (ну, с точностью до 1мс), а вот когда очередь дойдёт до обработчика - это тот ещё вопрос..
Ё-мое прав с округлением.
Suharew (2003-10-13 19:05:00) [3]
Ну так что с этим делать?
Е-Моё имя (2003-10-13 19:00:00) [4]
округление
Е-Моё имя (2003-10-13 19:00:00) [5]
есть
Е-Моё имя (2003-10-13 19:00:00) [6]
по сабжу: ты прав
| |
