zahlen sortieren

[Jelly]

Du bist Dir schon bewusst dass der Bubblesort nicht gerade prozessorschonend ist

Anstatt das Sortieren selbst zu schreiben, kannst du auch eine TList nutzen, anstatt eines arrays. Listen können beliebig viele Objekte aufnehmen. Und List implementiert bereits eine Sortier Methode, die als einzigen Parameter eine Funktion braucht, die einen Integer zurückliefert beim Vergleich von 2 Werten. (sozusagen das Pendant zu IComparable Interface in .NET). Hier einfach mal ein Beispiel, damits klarer wird. Zwar etwas aufgebauscht, aber damit wird dann schnell verständlich, dass das mit beliebigen Objekten in der List funktioniert, und nicht nur mit Integer:

Delphi-Quellcode:

type
  TMyClass = class
  public
     Value : integer ;
  end ;

  TForm1 = class (TForm)
  // ...
  public
    List : TList ;
      end ;

implementation

procedure Compare (Item1, Item2 : TPointer) ;
var
 V1, V2 : integer ;
begin
     V1 := Item1(TMyClass).Value ;
     V2 := Item2(TMyClass).Value ;
     if V1 < V2 then
        Result := 1
     else if V1 > V2 then
        Result := -1 
     else
        Result := 0 ;
end ;

end.

Die Liste sortieren geht dann ganz leicht mit
List.Sort (Compare) ; Bei diesem Sortierverfahren ist der QuickSort Algorythmus implementiert, der wesentlich effektiver arbeitet als BubbleSort.

Ich find die Methode über TList sehr elegant.