selbstlernende ComboBox

[DeddyH]

Ich weiß zwar nicht, was das mit Lernen zu tun hat, aber ich würde das etwa so machen:

Delphi-Quellcode:

if ComboBox1.Items.IndexOf(ComboBox1.Text) < 0 then
  ComboBox1.Items.Add(ComboBox1.Text);

Oder als eigene Routine:

Delphi-Quellcode:

procedure AddIfNecessary(const Item: string; List: TStrings);
begin
  Assert(Assigned(List), 'Keine TStrings-Instanz übergeben');
  if List.IndexOf(Item) < 0 then
    List.Add(Item);
end;

Aufruf dann:
AddIfNecessary(ComboBox1.Text, ComboBox1.Items);