Есть 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;
Admin: Пользуемся тегами!
а он пишет List Index out of bounds(1)
Что я сделал не так?