cómo ordenar Tlistview basado en el subelemento [x]

Question

¿Cómo ordenar en tlistview con datos presentes en subitem[x]?

Answer 1

Conjunto SortType := stData y escribir

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; 
    Data: Integer; var Compare: Integer); 
begin 
    Compare := StrToInt(Item1.SubItems[x]) - StrToInt(Item2.SubItems[x]) 
end; 

por ejemplo. Si la comparación es negativa, Item1 debe aparecer antes que Item2; si la comparación es positiva, aplica lo opuesto. Por lo tanto, este ejemplo, que asume que SubItem [x] contiene un entero, ordenará los elementos de acuerdo con el valor numérico del SubItem [x].

Si, por el contrario, SubItem [x] contiene cadenas, entonces se puede escribir

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; 
    Data: Integer; var Compare: Integer); 
begin 
    Compare := AnsiCompareText(Item1.SubItems[x], Item2.SubItems[x]); 
end;