Wie oft ist ein Zeichen in einem String

[Nils_13]

Delphi-Quellcode:

function bla(s : String; z : String) : Integer;
var i : Integer;
begin
  Result := 0;
  for i := 1 to Length(s) do
  begin
    if s[i] = z then
      inc(Result);
  end;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  bla('asbsdddds', 'd');
end;

Mist zu spät...