Combobox Items nur einmal zulassen

[Plague]

Hallo,

ich habe in meinem Programm die Funktion eingebaut, dass jede Eingabe in eine Combobox in die Items aufgenommen wird. Nun möchte ich aber, dass man jeden Suchbegriff nur einmal eingeben kann. Das heißt, dass wenn ich "Test" eingebe und es schon in den Items vorhanden ist, es nicht noch einmal in die Liste aufgenommen wird. Hat zufällig schon mal jemand das Problem bahandelt und könnte mir den Code schicken?

MfG
Thomas

[BluesKid]

mal so ins Blaue:

Delphi-Quellcode:

if combobox.items.indexof('Test') = -1 then
  //Test ist noch nich vorhanden
else
  //Test is schon da

schönen Gruß

Sam

[Christian Seehase]

Moin Thomas,

Du kannst einfach, bevor Du ein Item hinzufügst mit Items.IndexOf prüfen, ob der Eintrag schon existiert.
Wichtig: Gross-/Kleinschreibung wird nicht beachtet.

[Plague]

Leider wird durch diese Variante ein interner Fehler ausgelöst.
Das Programm wird auch nicht compilt.
Ich habe es folgender Masen programmiert:

Delphi-Quellcode:

if combobox1.items.indexof(combobox1.Text) = -1  then
       Combobox1.AddItem(Combobox1.Text,nil)
     else
        break;
     end;

Was ist falsch?

[Christian Seehase]

Moin Thomas,

es heisst ComboBox.Items.Add

[Plague]

Der Fehler erscheint immer noch. Es wird ebenfalls angezeigt, dass der Fehler von folgender Datei ausgeht:
dcc70.dll

[BluesKid]

Delphi-Quellcode:

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key = Vk_return)
  and (combobox1.items.indexof(combobox1.text) = -1) then begin
    combobox1.items.add(Combobox1.text);
    combobox1.text := '';
  end;//if
end;

^^getestet und funktioniert...

[Plague]

Vielen Dank!!!
Jetzt funktioniert es auch bei mir!

Thomas