如何基於subitem [x]在Tlistview中排序

Question

如何使用tlistview subitem[x]數據對tlistview進行排序？

Answer 1

設置SortType := stData並寫入

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

例如。 如果比較為負，則Item1應該在Item2之前; 如果比較為正，則相反。 因此，假設SubItem [x]包含整數的此示例將根據SubItem [x]的數值對項目進行排序。

另一方面，如果SubItem [x]包含字符串，那么您可以編寫

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