Anzahl eines Zeichens im String ermitteln

[Uwe Raabe]

Hier der Backport von string.CountChar für ältere Delphi-Versionen - sollte bekannt vorkommen (miep)...

Delphi-Quellcode:

function StringCountChar(const S: string; const C: Char): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I:= 1 to Length(S) do
    if S[I] = C then
      Inc(Result);
end;