delphi – TListView列排序(按前两列排序)

发布时间：2020-12-15 09:20:32 所属栏目：大数据来源：网络整理

导读：我使用Delphi 2010和TListView列出名称和其他数据.前两列是Last Name名字 Caption = Last Name SubItems[0] = First Name 如何通过这两列对ListView进行排序？这些只是Listview将按列排序的列,我希望始终保持排序(添加,编辑,删除项目时) 我怎么能做到这一点

我使用Delphi 2010和TListView列出名称和其他数据.前两列是Last Name&名字

Caption = Last Name
SubItems[0] = First Name

如何通过这两列对ListView进行排序？这些只是Listview将按列排序的列,我希望始终保持排序(添加,编辑,删除项目时)

我怎么能做到这一点？

解决方法

将SortType设置为’stBoth’,并实现OnCompare事件处理程序.例：

procedure TForm1.ListView1Compare(Sender: TObject; Item1,Item2: TListItem;
  Data: Integer; var Compare: Integer);
var
  S1,S2: string;
begin
  S1 := Item1.Caption;
  if Item1.SubItems.Count > 0 then
    S1 := S1 + Item1.SubItems[0];
  S2 := Item2.Caption;
  if Item2.SubItems.Count > 0 then
    S2 := S2 + Item2.SubItems[0];

  Compare := CompareText(S1,S2);
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!