Prüfen, ob ein String in der ListBox schon vorhanden ist?

[AlexII]

Bin gerade dabei ein Code zu schreiben, welcher prüfen, ob ein String in der ListBox schon vorhanden ist?
Hab schon folgendes geschrieben kommen aber nicht weiter?

Delphi-Quellcode:

procedure TForm1.InserttoRSL1Click(Sender: TObject);
var i: Integer;
begin
for i:=0 to ListBox1.Count-1 do
begin
if Label3.Caption<>ListBox1.Items.Strings[i] then ListBox1.Items.Add(Label3.Caption);
end;
end;

Wenn die erste Zeile in der ListBox diesen String nicht enthält muss man weiter prüfen und wenn erst alle Zeilen geprüft sind einfügen, bei mir wird aber mehr mals eingefügt. :gruebel:

Wer da Ideen?

[Klaus01]

.. gibt es bei det TListbox nicht

Delphi-Quellcode:

Listbox1.items.indexof(suchString)

Grüße
Klaus

[DeddyH]

Wie wäre es mit IndexOf?

[alleinherrscher]

Zitat:

Zitat von AlexII

Wenn die erste Zeile in der ListBox diesen String nicht enthält muss man weiter prüfen und wenn erst alle Zeilen geprüft sind einfügen, bei mir wird aber mehr mals eingefügt. :gruebel:

Wer da Ideen?

Wie wärs hiermit:

Delphi-Quellcode:

if Listbox1.items.indexof(Label3.caption)=-1 then Listbox1.items.add(Label3.caption);

//edit: Mist, zu langsam :D

[OldGrumpy]

ganz simpel:

Delphi-Quellcode:

if MeineListBox.Items.IndexOf(NeuerString)<0 then
Begin
  MeineListBox.Items.Add(NeuerString);
End;

Edit: Da bin ich ja nicht der einzige :mrgreen:

Deine Version machte folgendes:

- Laufe über alle Elemente in der Listbox
- Prüfe bei jedem Element, ob es dem Eingabetext entspricht.
- Falls nicht: Füge den neuen Text in die Liste ein

Du siehst hier klar den Denkfehler: Du darfst nicht schon einfügen, wenn nur der erste Vergleich ergeben hat, dass das vorhandene Element an der Stelle ungleich dem Eingabetext ist, sondern erst wenn alle derartigen Vergleiche ohne Ausnahme negativ waren. Das kann man sich also entweder über ein Flag merken (das sieht aber immer etwas unbeholfen aus), oder man fragt einfach die Listbox, ob sie den Eingabetext schonmal gesehen hat (mittels IndexOf) :)

[AlexII]

Wow so einfach ist.... :shock: Thx... :thumb:

[DeddyH]

[OT] Immer die gleiche Antwort, aber dafür schön im Minutentakt :lol: [/OT]