Oder du nimmst ein
array['a'..'z'] of Integer dass du mit 0 initialisiertst, und dann den String durchgehst
Delphi-Quellcode:
var
arr: array['a'..'z'] of Integer;
str: String;
i: Integer;
c: Char;
begin
for c=low(arr) to high(arr) do
arr[c] = 0;
for i=1 to length(str) do
inc(arr[str[i]]);
for c=low(arr) to high(arr) do
edit1.text = edit1.text + StringOfChar(c, arr[c]);
Oder so ähnlich.
Der Code zählt erst die Vorkommen der jeweiligen Buchstaben und gibt dann alle Buchstaben alphabetissch aus
