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

Вниз

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

 
UVV ©   (2004-12-22 15:01) [0]

Как узнать, что наступило нужное время, скажем 00:00!
Желательно пример!


 
Stanislav ©   (2004-12-22 15:09) [1]

TTimer
И на событие OnTimer проверять if time=0 then ...


 
Alexander Panov ©   (2004-12-22 15:11) [2]

if FormatDateTime("hh:nn",now)= "00:00" then ...


 
TUser ©   (2004-12-22 15:12) [3]

procedure Timer1OnTimer()
var i,k: integer;
   f: boolean;
begin
 i:=SecondsBetween(now,needtime);
 k:=4048; f:=true;
 while f and (k > 32) do
   if i >= k then
     k:=k shr 1
     else f:=false;
 if f then
    k:=1
    else k:=k*2;
 Timer1.Interval:=k; // Надеюсь не напутал - смысл в том, чтобы ближе к дедлайну проверять почаще
 if i = 0 then
   do something
end;
     
 
end;


 
UVV ©   (2004-12-22 15:15) [4]

Уточню вопрос, нужно каждый Новый Год выполнить определённую процедуру! Поэтому так часто проверять смысла нет!


 
Stanislav ©   (2004-12-22 15:19) [5]

Таймер установи на 24*60*1000, и будешь проверять раз в день.


 
Alexander Panov ©   (2004-12-22 15:27) [6]

UVV ©   (22.12.04 15:15) [4]

У тебя что, программа работает 24/7/365 ?


 
Stanislav ©   (2004-12-22 15:33) [7]

Stanislav ©   (22.12.04 15:19) [5]

Т.е. 24*3600*1000


 
UVV ©   (2004-12-22 15:39) [8]

2 Alexander Panov
Да



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

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

Наверх





Память: 0.46 MB
Время: 0.107 c
14-1103343805
Думкин
2004-12-18 07:23
2005.01.09
С днем рождения! 18 декабря


1-1103606356
KSergey
2004-12-21 08:19
2005.01.09
Наследование форм без репозитария


1-1103708141
tradakad
2004-12-22 12:35
2005.01.09
создание многомерного динамического массива чисел


9-1095718471
Ктото
2004-09-21 02:14
2005.01.09
Как создавать 3ds объекты с прозрачными/полупрорачными текстурами


4-1100988304
Юпитер
2004-11-21 01:05
2005.01.09
Поймать запуск EXE и переделать после загрузки в память





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