Zeichenkette im RichEdit zählen

[DeddyH]

Ich hätte das so versucht (Fehler vorbehalten):

Delphi-Quellcode:

uses StrUtils;

function PatternCount(Src, Pattern: string; CaseInsensitive: Boolean = false): integer;
var
  CurrentPos: integer;
begin
  if CaseInsensitive then
    begin
      Src := AnsiLowerCase(Src);
      Pattern := AnsiLowerCase(Pattern);
    end;
  Result := 0;
  CurrentPos := PosEx(Pattern, Src);
  while CurrentPos <> 0 do
    begin
      inc(Result);
      CurrentPos := PosEx(Pattern, Src, CurrentPos + Length(Pattern));
    end;
end;