Einzelnen Beitrag anzeigen

Benutzerbild von knolli
knolli

Registriert seit: 22. Sep 2006
Ort: Zittau
83 Beiträge
 
Delphi 7 Enterprise
 
#1

Listboxen vergleichen

  Alt 16. Apr 2008, 12:21
Hi!

Ich hab mal wieder ein Problem.

Ich sitze zur Zeit an einem Programm, das mir Wörter von Internetseiten holt.
Die Wörter der Seiten ( die in einem Memo sind), werden in eine Listbox eingetragen.
So weit so gut:

Delphi-Quellcode:
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//~~~~~~~~~~~~~~~~~~~~~~~~~~ Text zerlegen ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TWortsuche.Textzerlegen(Sender: TObject);
var sWort, sZeile:string;iLauf, iLauf2:integer;
begin
  For iLauf:=0 to Memo_Seitentext.Lines.Count-1 do //vom ersten bis letztem eintrag
    Begin
      Application.ProcessMessages; //wurde was geklickt?
      IF NOT bAbbruch then //wenn kein abbruch geklickt wurde dann
      begin //von HIER
        sZeile:=Memo_Seitentext.Lines[iLauf]+' '; //
        For iLauf2:=1 to LENGTH(sZeile) do // Wörter
          begin // der
            sWort:=COPY(sZeile,1,POS(' ',sZeile)); // Zeile
            sZeile:=COPY(sZeile,POS(' ',sZeile)+1, LENGTH(sZeile)); // trennen
            IF ((LENGTH(sWort)>1)) then // und
              Listbox_Seitenwoerter.Items.Add(TRIM(sWort)); // eintragen
        end;//for Length(sZeile) // bis HIER
      end;//if abbruch
  end;//for Memolines //Memoinhalt löschen
  Memo_Seitentext.Clear;
end;
Ich habe noch eine andere Listbox, in der Wörter stehen, die nicht eingetragen werden sollen.
Zu beginn des Programms, weiß ich weder wieviele Wörter in der Wörterlistbox stehen, noch wieviele Wörter in der Sperrlistbox stehen.

Ich habe es bis jetz immer nur so hinbekommen, dass zwar die Wörter(die auch in der Sperrliste stehen) ausgesondert werden, aber die Wörter (die nicht in der Sperrliste stehen) so oft eingetragen werden, wie die Sperrliste einträge hat.


Meine Frage:

Wie kann ich beim Eintragen in die Listbox_Seitenwoerter überprüfen, ob das Wort(das eingetragen werden soll) in der Sperrliste steht, ohne das Wörter (die nicht in der Sperrliste stehen) doppelt bzw vielfach eingetragen werden?
mfg Knolli auch bekannt als Meister Lampe
  Mit Zitat antworten Zitat