Wie oft ist ein Zeichen in einem String

[cruiser]

Delphi-Quellcode:

function CountSubStr(SubStr, Str: string): integer;
begin
  Result := 0;
  while pos(SubStr, Str) > 0 do
  begin
    Result := Result + 1;
    Str := Copy(Str, Pos(SubStr, Str) + Length(SubStr), Length(Str));
  end;
end;