
12.12.2008, 13:51
|
Активный
|
|
Регистрация: 08.04.2008
Адрес: Нижний новгород
Сообщения: 311
Репутация: 38
|
|
2
Код:
var
s:integer;
....
....
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
s:=StrToInt(Edit1.Text );
if (s=0) or (s>4) then
begin
ShowMessage ('Only Number 1..4!');
exit;
end
else
case s of
1 :begin
Memo1.Clear;
Memo1.Lines.Add('Зима');
Memo1.Lines.Add('');
Memo1.Lines.Add('Январь');
Memo1.Lines.Add('Февраль');
Memo1.Lines.Add('Декабрь');
end;
2: begin
Memo1.Clear;
Memo1.Lines.Add('Весна');
Memo1.Lines.Add('');
Memo1.Lines.Add('Май');
Memo1.Lines.Add('Март');
Memo1.Lines.Add('Апрель');
end;
3:begin
Memo1.Clear;
Memo1.Lines.Add('Лето');
Memo1.Lines.Add('');
Memo1.Lines.Add('Июнь');
Memo1.Lines.Add('Июль');
Memo1.Lines.Add('Август');
end;
4:begin
Memo1.Clear;
Memo1.Lines.Add('Осень');
Memo1.Lines.Add('');
Memo1.Lines.Add('Сентябрь');
Memo1.Lines.Add('Октябрь');
Memo1.Lines.Add('Ноябрь');
end;
end;
end;
end.
|