Hallo
Entstanden aufgrund einer Anfrage in einem Thread.
Ergebnis ist eine neu erzeugte Stringliste mit der Anzahl der vorkommenden Worte. (wort=Anzahl)
Wurde nichts gefunden ist der Rückgabewert NIL.
Der Aufrufer wird Besitzer von dem neu erzeugten Object und muss sich selbst um die Freigabe kümmern (Free).
"List" ist die zu durchsuchende quelle.
"strs" ist die Liste der Suchworte.
Delphi-Quellcode:
procedure SeekStrings(List, strs, dest: TStrings);
var
i,j,k,m: integer;
s1:
String;
s2:
String;
begin
{ Safety }
if not Assigned(List)
or not Assigned(strs)
or not Assigned(dest)
then exit;
i := 0;
j := 0;
k := 0;
m := 0;
s1 := '
';
s2 := '
';
{ Action }
s1 := List.Text+#0;
//Liste ine eine Zeichenkette für ZeigerWandern umwandeln:
{ Nachteil platz, Vorteil Speed }
m := Length(s1)-1;
// Bytelänge dieses Textes ohne unseren #0 abschluss
if (m>0)
then // gibt's überhaupt was zu tun ?
begin
for j:=0
to strs.Count-1
do // für alle zu suchende Wörter
begin
i := 1 ;
k := 0;
s2 := strs[j]+#0;
// Suchwort für pChar Zeiger vorbereiten
While (AnsiStrPos(@s1[i],@s2[1])<>
NIL)
do // s2 suchen ab position s1[i]
begin
inc(k);
// fündig also Zähler erhöhen
inc(i,Length(s2)-1);
// Offset für nächste Suchposition
if (i>m)
then // security damit i keine exception lösen kann
break;
end;
if (k>0)
then dest.Add(s2+'
='+IntToStr(k));
end;
end;
end;
[edit=Matze]Code mit den Änderungen von BUG ersetzt. MfG, Matze[/edit]