如何按照位于subitem[x]
中的数据在tlistview
中排序?
设置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;
例如,如果compare为负,则Item1应该排在Item2之前;如果compare为正,则相反。因此,假设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;