In ListView einzelne Spalten sortieren

[Keldorn]

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