Jo mei ... erst schreibste, des dir det jefaellt und nu is och wieda net recht.
Also ... erstell dir ein arr:Array[0..$FF] of Integer dann:
Delphi-Quellcode:
ZeroMemory(@arr, sizeof(arr));
for i:=1 to length(s) do
inc(arr[Byte(s[i])]);
Dann haste fuer jedes Zeichen drinzustehen, wie oft es vorkommt ...