Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Case StrToInt(Edit1.Text) Of
1: Edit2.Text:= 'Пн';
2: Edit2.Text:= 'Вт';
3: Edit2.Text:= 'Ср';
4: Edit2.Text:= 'Чт';
5: Edit2.Text:= 'Пт';
6: Edit2.Text:= 'Сб';
7: Edit2.Text:= 'Вс';
end;
end; |