[lohmatiy]

Есть 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)
Что я сделал не так?

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

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

[Asinkrit]

Код:

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