Unterprogramm zum Sortieren

[Schwedenbitter]

Was spricht gegen eine Komponente vom Typ TListView?
Dort ist mindestens 1 Sortieralgorhytmus als Methode mit drin. Der wird dann so aufgerufen:

Delphi-Quellcode:

Procedure TMain.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
Begin
   ColumnToSort:=Column.Index;
   (Sender As TCustomListView).AlphaSort
End;

Ob das lege artis ist, kann ich nicht sagen. Es funktioniert aber bei mir.