Bubblesort an Liste anpassen

[wendel]

Hey Leutz, ich bräuchte einen Tipp, wie ich in eine vorhande Liste den Bubblesort anpassen könnte

Delphi-Quellcode:

procedure BubbleSort(Items: TStrings);
var
  Element : TElement;
  done: boolean;
  i, n: integer;
  Dummy: string;
begin
  n := Items.Count;

  repeat
    done := true;
    for i := 0 to n - 2 do
      if Items[i] > Items[i + 1] then
      begin
        Dummy := Items[i];
        Items[i] := Items[i + 1];
        Items[i + 1] := Dummy;

        done := false;
      end;
  until done;

end;



procedure TFListe.Button1Click(Sender: TObject);
begin
BubbleSort(Listbox1.Items);
end;

Anstelle der Listbox verwenden wir ein TStringGrid ;/
Ich hänge mal die ganze Datei an, wer Lust hat, kann es sich ja anschauen und vielleicht noch Vorschläge geben
Bin noch ziemlich neu in Delphi, also habt Gnade ^^
Es ist eine List, hat zwei Units, eine mit OOP. Ihr könnt sie ruhig testen ^^