Wie oft ist ein Zeichen in einem String

[Muetze1]

Delphi-Quellcode:

Function CountChar(Const AString: String; Const AChar: Char): Integer;
Var
  lStr: PChar;
Begin
  Result := 0;

  lStr := PChar(AString);

  If Assigned(lStr) Then
  Begin
    While ( lStr^ <> #0 ) Do
    Begin
      If lStr^ = AChar Then
        Inc(Result);

      Inc(lStr);
    End;
  End;    
End;