[lohmatiy]

Есть 2 комбобокса - в первом значения прописаны вручную, а во втором должны формироваться в зависимости от того, что выбрано в первом. Создал такую процедуру

Код:

1 2 3 4 5 6 7 8 9 10

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;

Admin: Пользуемся тегами!

а он пишет List Index out of bounds(1)
Что я сделал не так?

[M.A.D.M.A.N.]

Добавь в последний 3 строки пустых.

[Asinkrit]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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;

[lohmatiy]

Спасибо, помогло ComboBox.Items.Add