Действие по расписанию.

← →
Ш-К (2003-05-11 02:11) [0]

Как запустить свою процедуру строго в полночь.
Есть ли специальные инструменты для этого?
ТTimer может перепрыгнуть через 00:00, и я момент не поймаю.
И не дергать же таймер целые сутки!
А без таймера как?

← →
Нуу (2003-05-11 02:45) [1]

> ТTimer может перепрыгнуть через 00:00, и я момент не поймаю.

Но Date изменится в этот момент! А таймер, который проверяет дату, например, раз в секунду, еще никому не навредил!

← →
Мыш © (2003-05-11 02:48) [2]

Если он будет работать с интервалом гораздо меньшим секунды (1000), то никак не перепрыгнешь. Ну а если уж перепрыгнул, то можно сравнить дату - ведь она изменится после полуночи. А вообще посмотри в хелпе date/time routines - там все что тебе нужно для подобных вещей.

← →
Ш-К (2003-05-11 06:30) [3]

Действительно, для полночи можно только день сверять.
Но дергать каждую секунду не есть гуд.

← →
uw © (2003-05-11 10:13) [4]

procedure Form1.SetTimerInterval; var MidNight: TDateTime; begin MidNight := Trunc(Now + 1.0); Timer1.Interval := Round((MidNight - Now) * 24 * 3600 * 1000); Timer1.Enabled := True; end;

Добавь задачу в виндовый шедулер.

> Действительно, для полночи можно только день сверять.
> Но дергать каждую секунду не есть гуд.

Основную часть времени прога (как правило) ничего полезного не делает - молотит цикл на проверку событий - секундный таймер тебе ничем не навредит...

Действие по расписанию. Найти похожие ветки