[sflash]

Сообщение от Ghost

mrac
А почему бы не воспользоваться дмумя таймерами:
1 - каждую секунду проверяет текущее время на принадлежность указанному промежутку и включает/выключает в зависимости от этого второй таймер.
2 - каждую секунду выполняет нужное действие.
В принципе, можно проверку в первом таймере делать и не каждую секунду, а вычислять ее в зависимости, опять-таки, от разницы между текущим временем и началом данного промежутка.
А текущее время определить просто:

var
  DateTime: TDateTime;
  str: string;
  hour, min, sec: integer;
...
  DateTime := Time;
  str  := TimeToStr(DateTime);
  hour := StrToInt(copy(str, 1, 2));
  min  := StrToInt(copy(str, 4, 2));
  sec  := StrToInt(copy(str, 7, 2));
...

Да-а-а, а потом говорят что программы на Delphi тормозят. Ну кто же так пишет. А вот так не пробовал?
DateTime : TDateTime;
hour, min, sec, sec100 : Word;
...
DecodeTime(Time,hour,min,sec,sec100);

Ничего общего не замечаешь?