对ListView中的记录排序

Question

如题

Answer 1

创建一个临时的tmpListView,按顺序将原来的ListView的记录插入到tmpListView，最后将tmpListView赋值给原来的ListView

Answer 2

在ListView中事件 OnColumnClick OnCompare
procedure Tfrm_RolePower.LVRolePowerColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  nSortCol := Column.Index;
  LVRolePower.AlphaSort;
end;procedure Tfrm_RolePower.LVRolePowerCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
begin
 if nSortCol = 0 then
    Compare := CompareStr (Item1.Caption, Item2.Caption)
  else
    Compare := CompareStr (Item1.SubItems [nSortCol - 1],
       Item2.SubItems [nSortCol - 1]);
end;