wie in Tlistview basierend auf Unterpunkt [x] sortiert werden

Question

Wie in tlistview mit Daten in subitem[x]?

Answer 1

Set SortType := stData und

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

zum Beispiel schreiben. Wenn compare negativ ist, sollte Item1 vor Item2 stehen; Wenn Vergleich positiv ist, gilt das Gegenteil. Daher wird dieses Beispiel, das davon ausgeht, dass SubItem [x] eine ganze Zahl enthält, die Elemente nach dem numerischen Wert von SubItem [x] sortieren.

Wenn auf der anderen Seite SubItem [x] Strings enthält, dann können Sie

schreiben

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