Problem mit LinkedList

[PureBasic4.0]

Hi, Leute

Ich möchte, dass kein Element in einem ListViewGadget doppelt vorkommt. Alle Elemente sind in einer LinkedList gespeichert, weil ich die Daten hinterher wieder brauche und nicht extra den Inhalt des ListViewGadgets auslesen möchte.

Hier der Code:

Code: Alles auswählen

Global NewList Words.s()
[...]
      String$ = InputRequester("Eingabe","Bitte geben Sie das Wort ein","")
      If String$ <> ""
        ok = 1
        ForEach Words()
          If Words() = String$
            ok = 0
          Else
            ok = 1
          EndIf
        Next
        If ok = 1
          AddElement(Words())
          Words() = String$
          AddGadgetItem(#First_Wortliste,FirstWortlistePos,String$)
        Else
          MessageRequester("Fehler","Das Wort "+String$+" existiert bereits",#MB_ICONSTOP)
        EndIf
      EndIf

Wenn man z.B.: 123 einfügt und dann gleich wieder 123, gibt es wie gewünscht eine Fehlermeldung:



Wenn ich jetzt aber z.B.: 1234 einfüge und dann wieder 123 einfüge, bekomme ich keinen Fehler:



Warum?

[Kiffi]

Du musst die ForEach-Schleife verlassen, wenn das Wort bereits in der LL steht.

Code: Alles auswählen

If Words() = String$
 ok = 0
 Break
Else
 ok = 1
EndIf

Grüße ... Kiffi

[PureBasic4.0]

warum bin ich da nicht drauf gekommen? sonst mache ich das mit break immer, aber heute...

Danke, Kiffi

[Little John]

Nur so am Rande: Der ELSE-Zweig ist an der Stelle nicht nötig, es reicht 'ok' vor Beginn der ForEach-Schleife auf 1 zu setzen:

Code: Alles auswählen

Global NewList Words.s()
[...]
      String$ = InputRequester("Eingabe","Bitte geben Sie das Wort ein","")
      If String$ <> ""
        ok = 1
        ForEach Words()
          If Words() = String$
            ok = 0
            Break
          EndIf
        Next
        If ok = 1
          AddElement(Words())
          Words() = String$
          AddGadgetItem(#First_Wortliste,FirstWortlistePos,String$)
        Else
          MessageRequester("Fehler","Das Wort "+String$+" existiert bereits",#MB_ICONSTOP)
        EndIf
      EndIf

Gruß, Little John

[PureBasic4.0]

Danke