Показать сообщение отдельно
  #3  
Старый 15.12.2011, 11:12
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  s1, s2, s: String;
begin
  s1:='08:30';
  s2:='20:30';
  s:='10:50';
  if (StrToTime(s)>=StrToTime(s1)) and (StrToTime(s)<=StrToTime(s2)) then
    ShowMessage('ok');  
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием