Wie oft ist ein Zeichen in einem String

[dominikkv]

oder so:

Delphi-Quellcode:

function Zeichen(const s: String; const z: Char): Integer;
var
  I: Integer;
begin
result := 0;
for I := 1 to length(s) do
  if s[i] = z then inc(result);
end;