Und wenn du das wieder in ein Zahl Umwandeln möchtest, statt einen String dann geht dies so
Delphi-Quellcode:
Result := 0;
for I := Low(Count)
to High(Count)
do
while Count[I] > 0
do
begin
Result := Result * 10 + I;
Dec(Count[I]);
end;
Du hast dann keinen String sondern wieder einen Integer als Resulat.
Gruß Hagen