Einzelnen Beitrag anzeigen

Benutzerbild von freak4fun
freak4fun

Registriert seit: 22. Sep 2004
Ort: Hannover
1.807 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#1

Combobox Liste zuweisen

  Alt 4. Apr 2005, 20:09
Hallo, was mache ich hier falsch?

Delphi-Quellcode:
procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
  StringList: ArrayList;
  i: Integer;
  IsInList: Boolean;
begin
  StringList := ArrayList.Create;
  StringList.Add(ComboBox1.Items);
  IsInList := false;
  for i := 0 to StringList.Count - 1 do begin
    if TextBox1.Text = StringList.Item[i].ToString then begin
      IsInList := true;
      break;
    end;
  end;
  if not IsInList then begin
    StringList.Add(TextBox1.Text);
    StringList.Sort;
    
    ComboBox1.Items.Add(StringList); // Hier gibt es den Fehler: InvalidOperationExcaption


    Label1.ForeColor := Color.Red;
    Label1.Text := TextBox1.Text + ' wurde zur Liste hinzugefügt.';
  end
  else begin
    Label1.ForeColor := Color.Red;
    Label1.Text := TextBox1.Text + ' ist schon in der Liste.';
  end;

end;
Danke!

MfG
freak
Christian
IT: Schließen Sie bitte das Fenster. User: Die Tür auch?
i++; // zaehler i um 1 erhoehen
  Mit Zitat antworten Zitat