Главная страница
    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.008 c
3-70146
rosl
2003-05-02 07:57
2003.05.22
автоматическое добавление номера


1-70303
User
2003-05-13 09:20
2003.05.22
Список объектов


11-70193
Alexei Dragoner
2002-08-07 12:22
2003.05.22
Вот и Delphi 7.... Какие планы?


14-70526
snake1977
2003-05-05 12:26
2003.05.22
агрегативные функции


3-70155
anpv
2003-05-02 10:41
2003.05.22
Interbase





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский