|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#4
04.10.2018, 21:03
|
||||
|
||||
Код:
var zn: array[0..2] of integer = (30, 20, 10); procedure TForm1.ComboBox1Change(Sender: TObject); begin Label1.Caption:= IntToStr(zn[(Sender as TComboBox).ItemIndex]); end; |
Древовидный вид