Показать сообщение отдельно
  #4  
Старый 04.10.2018, 21:03
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
По умолчанию

Код:
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;
4250
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием