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?