Anzahl eines Zeichens im String ermitteln

[KodeZwerg]

Delphi-Quellcode:

function CharInStringA(const Str: AnsiString; const c: AnsiChar): Integer;
var
  p: PAnsiChar;
begin
  Result := 0;
  p := PAnsiChar(Pointer(Str));
  while p <> nil do
    begin
      p := AnsiStrScan(p, c);
      if p <> nil then
        begin
          inc(Result);
          inc(p);
        end;
    end;
end;

Habs gerade mit normalen Strings getestet, funktioniert immer noch (Sau-)schnell.