ListView Sortering

var
  LastSortedColumn: integer;
  Ascending: boolean;


function SortByColumn(Item1, Item2: TListItem; Data: integer): integer; stdcall; 
begin   
if Data = 0 then     
Result := AnsiCompareText(Item1.Caption, Item2.Caption) 
else   
Result := AnsiCompareText(Item1.SubItems[Data-1], Item2.SubItems[Data-1]);   
if not Ascending then
Result := -Result; 
end;

procedure TYourForm.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  if Column.Index = LastSortedColumn then
  Ascending := not Ascending
    else
    LastSortedColumn := Column.Index;
    ListView1.CustomSort(@SortByColumn, Column.Index);
end;

procedure TYourForm.FormCreate(Sender: TObject);
begin
  LastSortedColumn := -1;
  Ascending := True;
end;

Virker fint

Mange Tak