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.