Показать сообщение отдельно
  #19  
Старый 17.04.2014, 06:32
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от Ahton
...Где ошибка? ...
В подходе к решению проблемы. Это всё можно заменить одной строкой
Код:
...
 if StrToTime('11:00:00') = Time then ShowMessage('test');
...
причём StrToTime применена чисто для наглядности, лучше время хранить в TDateTime потому как потом можно будет обращаться с этой переменной как с обычным числом - прибавлять и вычитать, хоть делить и умножать, посмотрите содержимое юнита DateUtils и сами увидите

З.Ы. Здесь надо учесть один нюанс - равенство возможно ни когда не будет выполнено, поскольку конкретное время бывает только раз за сутки, а таймер может в этот момент и не сработать, поэтому лучше выставить условие как >=
Ответить с цитированием