Komprimierung : Wie geht das?

[alzaimar]

Bubblesort in rekursiv? Das ist ja mutig.

Wieso nicht einfach so?

Delphi-Quellcode:

For i := low(TheArray) to High (TheArray)-1 do
  For j := i + 1 to High(TheArray) do
    If TheArray[i] > TheArray[j] then
      SwapArrayElements (TheArray, i, j);

Getippt und nicht getestet, und SwapArrayElements solltest Du dann noch selbst auskodieren.

Aber was Du genau sortieren willst, habe ich nicht verstanden.