Bestimmte Zeichen eines Strings zählen

[rawsoul]

Hallo miteinander,

da die Fragen diesbezüglich sehr oft kommen in letzter Zeit, hier mal meine Version einer Zeichen-Zähl-Funktion.

Delphi-Quellcode:

type
  TChars = array[Char] of Integer;

function ZaehleZeichen(Str: string; CaseSensitve: Boolean = True): TChars;
var
  Idx: Integer;
begin
  FillChar(Result, SizeOf(TChars), #0);
  if not CaseSensitve then
    Str := LowerCase(Str);
  for Idx := 1 to Length(Str) do
    Inc(Result[Str[Idx]]);
end;

[edit=Matze]Ursprünglichen Source-Code durch einen besseren von sakura ersetzt. MfG, Matze[/edit]