|
|
#1
|
|||
|
|||
ComboBox.Items
Есть 2 комбобокса - в первом значения прописаны вручную, а во втором должны формироваться в зависимости от того, что выбрано в первом. Создал такую процедуру
Код:
procedure TForm1.ComboBox2Select(Sender: TObject); begin if (Form1.ComboBox2.Text='Неметаллическая') then Form1.ComboBox3.Items[1]:='Паронит'; if (Form1.ComboBox2.Text='Металлическая') then begin Form1.ComboBox3.Items[1]:='Алюминий'; Form1.ComboBox3.Items[2]:='Латунь'; Form1.ComboBox3.Items[3]:='Сталь'; end; end; а он пишет List Index out of bounds(1) Что я сделал не так? Последний раз редактировалось Admin, 25.04.2010 в 17:27. |
#2
|
||||
|
||||
Добавь в последний 3 строки пустых.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Код:
procedure TForm1.ComboBox2Select(Sender: TObject); begin if (Form1.ComboBox2.Text='Неметаллическая') then begin with Form1.ComboBox3 do begin BeginUpdate; Clear; Add(Паронит); EndUpdate; end; end else with Form1.ComboBox3 do begin BeginUpdate; Clear; Add('Алюминий'); Add('Латунь'); Add('Сталь'); EndUpdate; end; end; |
#4
|
|||
|
|||
Спасибо, помогло ComboBox.Items.Add
|