AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Listboxen vergleichen

Ein Thema von knolli · begonnen am 16. Apr 2008 · letzter Beitrag vom 16. Apr 2008
 
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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz