Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];

Вниз

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

 
Ш-К   (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;



 
Song   (2003-05-11 10:42) [5]

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


 
next_   (2003-05-11 13:07) [6]


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

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



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

Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
3-70123
Ann
2003-04-30 13:06
2003.05.22
EhLib 2.0


14-70462
Antosik
2003-05-01 19:09
2003.05.22
Отчёты в дельфях


1-70376
Might
2003-05-10 16:06
2003.05.22
Создание нового формата файлов


3-70089
Юлия
2003-05-04 13:51
2003.05.22
table1.emptytable


7-70543
ДмитрийВ
2003-03-24 23:38
2003.05.22
9й бит в rs-232 как проверять?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский