Also das mit dem umändern aller Integer-typen in Strings hab ich nich hinbekommen...
Ich hab dann ma versucht, mir die Anfangsbuchstaben aller Namen in
ASCII Ausgeben zu lassen, was auch funktioniert.
Nur wenn ich diese Werte dann sortieren will, macht er nichts. (Ich hab die Werte vorher in ein Array geschrieben)
Ich denke das liegt daran, dass der Algorithmus keine Zahlenmengen sondern nur Zahlenreihen sortieren kann ( ich hoffe ich hab das jetzt richtig erfasst ).
d.h. wenn ich jetzt das Array bla mit den werten: 77 67 68 69 67 65 80 68 70 70
... wird da nix sortiert
Hier nochma mein geänderter Code:
Delphi-Quellcode:
For i := 0 to high(bla) do begin
bla[i] := Ord(Namen.Strings[i][1]);
Stringgrid1.Cells[i,0] := IntToStr(bla[i]);
end;
quicksort(bla[0], bla[high(bla)]);
For j := 0 to high(bla) do begin
Stringgrid1.Cells[j,0] := IntToStr(bla[j]);
end;