Fehler mit CustomSort

[okoeller]

Hallo DeddyH,

wie Du es beschrieben hast funktioniert es jetzt auch bei mir.
Mein Fehler lag in der ListView1ColumnClick. Dort hatte ich cssAlphaNum und cssNumeric nicht richtig eingesetzt. Man muss halt darauf achten welche Spalten der ListView numerische oder alphanumerische Werte enthalten und den LvSortStyle entsprechend setzen.

Danke für den Beitrag

Gruß okoeller

Delphi-Quellcode:

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
//  ListView1.CustomSort(@CustomSortProc, 0);

if Column.Index = 0 then
  LvSortStyle := cssNumeric
else
  LvSortStyle := cssAlphaNum;

ListView1.CustomSort(@CustomSortProc, Column.Index-1);
LvSortOrder[Column.Index] := not LvSortOrder[Column.Index];

end;