ComboBoxen aus Multidimensionalem Array füllen

[Hawkeye219]

Hallo SilentStorm,

vielleicht kannst du so vorgehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.DelimitedText := 'Nr1,Nr2,Nr3';
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0: ComboBox2.Items.DelimitedText := 'Blah,Blub';
    1: ComboBox2.Items.DelimitedText := 'Alpha,Beta,Gamma,Delta,epsilon';
    2: ComboBox2.Items.DelimitedText := '"Zeile 1","Zeile 2","Zeile 3"';
  else
    ComboBox2.Clear;
  end;

  if (ComboBox2.Items.Count > 0)
    then ComboBox2.ItemIndex := 0
    else ComboBox2.ItemIndex := -1;
end;

Wenn ein ComboBox-Eintrag Leerzeichen enthält, dann musst du ihn in doppelte Anführungszeichen einfassen, so wie es für die dritte Liste gezeigt wird.

Gruß Hawkeye