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:
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!