Anzahl eines Zeichens im String ermitteln

[Missionar]

'ne andere Version in die runde geb

Delphi-Quellcode:

function cCount(str: string; c: char): integer;
var
  x: char;
begin
  result := 0;
  for x in str do
    if x = c then inc(result);
end;