selbstlernende ComboBox

[p80286]

Der einfachste Weg wird wohl etwas in dieser Art sein

Delphi-Quellcode:

if pos(combobox.Text,Combobox.items.Text)<0 then 
  Combobox.Items.Add(Combobox.Text);

ungetestet und nur so hingetippt.

Gruß
K-H

Manno, schon wieder einer schneller *schmoll*

[Aphton]

Zitat von p80286:

Der einfachste Weg wird wohl etwas in dieser Art sein

Delphi-Quellcode:

if pos(combobox.Text,Combobox.items.Text)<0 then 
  Combobox.Items.Add(Combobox.Text);

ungetestet und nur so hingetippt.

Gruß
K-H

Manno, schon wieder einer schneller *schmoll*

Was ist mit folgenden Einträgen?
1. blablaTESTblabla
2. TEST

Würde 2. bei deinem Vorschlag eingefügt werden?

[sx2008]

Immer wenn du eine Eingabe akzeptieren möchtest ruft du folgende Prozedur auf:

Delphi-Quellcode:

procedure ComboboxRollingHistory(cbo:TCustomComboBox; maxitems:Integer=20);
var
   s : string;
   i : Integer;
begin
   s := TComboBox(cbo).Text;
   if s='' then Exit;

   i := cbo.Items.IndexOf(s);
   if i >= 0 then
   begin
      cbo.Items.Move(i, 0);
      cbo.ItemIndex := 0;
   end
   else
   begin
      cbo.Items.Insert(0, s);
      if maxitems >= 0 then
         while cbo.Items.Count > maxitems do
            cbo.Items.Delete(cbo.Items.Count-1);
   end;
end;

Der zuletzt eingegebene Text wandert automatisch an die Poleposition und selten verwendete Texte werden vergessen wenn die Listengröße maxitems überschritten wird.
Für das Laden und Speichern musst du dich gesondert kümmern (im OnCreate-Event des Formulars laden und in OnDestroy speichern).