Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Время [D7, Win2k]

UVV © (2004-12-22 15:01:00)
Как узнать, что наступило нужное время, скажем 00:00!
Желательно пример!

UVV (2004-12-22 15:39:00) [1]
2 Alexander Panov
Да

Stanislav (2004-12-22 15:33:00) [2]
Stanislav © (22.12.04 15:19) [5]

Т.е. 24*3600*1000

Alexander Panov (2004-12-22 15:27:00) [3]
UVV © (22.12.04 15:15) [4]

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

Stanislav (2004-12-22 15:19:00) [4]
Таймер установи на 24*60*1000, и будешь проверять раз в день.

UVV (2004-12-22 15:15:00) [5]
Уточню вопрос, нужно каждый Новый Год выполнить определённую процедуру! Поэтому так часто проверять смысла нет!

TUser (2004-12-22 15:12:00) [6]
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;

Alexander Panov (2004-12-22 15:11:00) [7]
if FormatDateTime('hh:nn',now)= '00:00' then ...

Stanislav (2004-12-22 15:09:00) [8]
TTimer
И на событие OnTimer проверять if time=0 then ...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »