String durchsuchen und Wortvorkommen zählen

**Aike**

Hallo Leute,

ich habe ein ganz kniffliges Problem *g* Und zwar sieht das wie folgt aus:

In meinem String stehen sehr viele Worte und ich möchte zählen, wie oft ein und das selbe Wort vorkommt, bis das primär gesuchte Wort auftaucht.

Das soll zum Beispiel so aussehen:
String:
"Delphi Delphi Delphi Delphi Forum Delphi Delphi"
Rückgabewert:
"Delphi": 4
"Forum": Existiert

Die primäre Durchsuchung (die auch funktioniert

), sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			sl := TStringList.Create;

try

  sl.Delimiter := #9;

  sl.Sorted:=True;

  for x:=0 to ListboxGesuchteWorte.Count-1 do 

  begin

    sl.DelimitedText := ListboxGesuchteWorte.Items[x];

    sl.Duplicates:=dupIgnore;

    for ndx := 0 to pred (sl.Count) do

    begin

      okay := Pos (sl.Strings[ndx],MeinGrosserString) > 0;  // Wort ist vorhanden

      if not (okay) then

        ListboxNichtVorhanden.Items.Add(sl.Strings[ndx])

      else

        ListboxIstVorhanden.Items.Add(sl.Strings[ndx]);

    end;

  end;

finally

  FreeAndNil (sl);

end;

Gegen radikale Umwürfe hab ich nix, der Code stammt auch nicht von mir; ich komme damit kaum zurecht und versuche, mich mit meinen mangelhaften (aber wachsenden *g*) Kenntnissen durchzumogeln

Hm, also ich hoffe ich hab 's richtig und vollständig erklärt.

Danke für eure Hilfe!

String durchsuchen und Wortvorkommen zählen

String durchsuchen und Wortvorkommen zählen

Forumregeln