Innerhalb eines Strings Characters sortieren

[jfheins]

Zitat von Mr. General:

danke für eure hilfe. ich habs jetzt aber doch ganz anders gemacht^^

Wenn ichs dir sagen darf: Hast du nicht

Das was du gemacht hast ist das, was ich dir oeben vorgeschlagen habe, und was sich Bucketsort nennt. Du hast es zwar etwas umständlich gemacht, aber es ist die gleiche Logik

Ich habe nur das Array nicht alsfeld:array [1..26] of byte; deklariert, sondern alsfeld:array ['a'..'z'] of byte;

Delphi-Quellcode:

for i := 1 to length(edit1.text) do
  for j := 1 to 26 do
    if edit1.text[i] = abc[j] then
      inc(feld[j]);

Das geht dan nämlich auch viel einfacher so:

Delphi-Quellcode:

for i := 1 to length(edit1.text) do
  inc(feld[edit1.text[i]]);