Hallo alexander, falls du noch wissen willst wie man die Anzahl eines Wortes in einem string festellt:
Delphi-Quellcode:
function CountSubstr(const Str,Substr: string): Integer;
var
Start,Position : integer;
begin
result := 0;
Start := 1;
Position := Pos(Substr,Copy(Str,Start,length(Str)));
while Position <> 0 do
begin
Start := Start + Position + length(Substr);
Position := Pos(Substr,copy(Str,Start,length(Str)));
inc(result)
end
end;
Hab ich jetzt nicht getestet, müsste aber gehen.
Gruß, Sebastian