Delphi-Quellcode:
procedure TPositionstatistik.sortprocedure(Sender: TObject;
Column: TListColumn);
du hast hier 2 Paramter, und übergibst dann nur einen.
Es macht so wie es jetzt bei dir dasthet, keinen Sinn, das die Procedure allgemein für mehrere Listviews gehalten wird, da du dann auch für jedes Listview eine Columntosort und Lastsorted-Vasribale brauchst. Alos nimm den "sender" raus. und schreib gleich listview1.alphsort
Delphi-Quellcode:
procedure TPositionstatistik.sortprocedure(Column: TListColumn);
begin
ColumnToSort := Column.Index;
if ColumnToSort = LastSorted then
SortDir := 1 - SortDir
else
SortDir := 0;
LastSorted := ColumnToSort;
ListView1.AlphaSort;
end;
Mfg Frank