На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Главная » 2013»Февраль»22 » Программа для вывода поры года по номеру месяца в Делфи 7
02:03
Программа для вывода поры года по номеру месяца в Делфи 7
Создадим программу, которая будет запрашивать ввод числа от 1 до 12 и выводить название времени года, которому принадлежит месяц с указанным номером. Интерфейс прост: поле ввода (Edit1) и кнопка (Button1) Пишеи команду для кнопки(Button1)
Цитата
procedure TForm1.Button1Click(Sender: TObject); var Month: Integer; begin Month:=StrToInt(Edit1.Text); case Month of 1,2,12: ShowMessage('Зима'); 3..5: ShowMessage('Весна'); 6..8: ShowMessage('Лето'); 9..11: ShowMessage('Осень') else ShowMessage('Число должно быть от 1 до 12.') end end;
|