Здравствуйте. Прошу сильно не кричать и не оскорблять, мне 14 лет нашёл ваш форум и очень рад. Учу программирование и думаю поступить учится на программиста. Я самоучка щас так что могут быть очеть тупые вопросы от меня. Если что не так пишите в ПМ пожалуйста. А щас прошу вашей помощи.
Меня интересует следующее:
Я хочу на экран вывести в Label1 время суток а в Label2 по функции Case следующее:
Код:
Например:
Case x of
22..05 : Label2.Caption := ('Ночь');
05..11: Label2.Caption := ('Утро');
end;
Проблемма состоит в том что как в переменную x засунуть именно времмя по часам и чтобы процедура выше сроботала???
После 2 часов мороки чтото нахимичил и вышло вот это:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Time);
Case StrToInt(FormatDateTime('h',Time)) of
23..24: Label2.Caption :=(Ночь');
1..5: Label2.Caption :=('Ночь');
6..11: Label2.Caption :=('Утро');
12..18: Label2.Caption :=('День');
19..22: Label2.Caption :=('Вечер');
end;
end;
Вроде вышло. А терь новый вопрос
как сделать чтобы вот такой вот диапазончик как видите
Код:
23..24: Label2.Caption :=(Ночь');
1..5: Label2.Caption :=('Ночь');
вот так я сделал а можно ли способом покороче записать это якобы чтобы было
Код:
23..5: Label2.Caption :=(Ночь');