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