delphi - TListView 列排序（按前两列排序）

Question

我正在使用 Delphi 2010 和 TListView 列出名称和其他数据。前两列是姓氏和名字

Caption = 姓
SubItems[0] = 名字

如何按这两列对 ListView 进行排序？这些将只是 Listview 将被排序的列，我希望始终保持这种排序（添加、编辑、删除项目时）

我怎样才能做到这一点？

Answer 1

设置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;