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]