Delphi：如何对虚拟TListView中的项目进行排序？

虚拟TListView本身不存储条目数据，所有内容由外部数据源提供，因此无法使用常规的CustomSort方法（回调不会触发）。正确的做法是对数据源进行排序，再通知ListView刷新显示，具体步骤如下：

核心思路 #

虚拟模式下，ListView仅负责展示数据，排序逻辑必须在你的数据源（如数组、对象列表）中实现，排序后刷新ListView即可让内容按新顺序显示。

具体实现步骤 #

1. 维护排序状态 #

定义两个变量跟踪当前排序的列和方向：

private
  FSortCol: Integer;    // 当前排序的列索引
  FSortAsc: Boolean;    // 是否升序排序

2. 在OnColumnClick事件中处理排序 #

点击列头时，更新排序状态、对数据源排序并刷新ListView：

procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
var
  SortFunc: TComparison<TMyData>;
begin
  // 更新排序状态：点击同一列则反转方向，否则默认升序
  if FSortCol = Column.Index then
    FSortAsc := not FSortAsc
  else
  begin
    FSortCol := Column.Index;
    FSortAsc := True;
  end;

  // 根据列索引定义排序规则
  case FSortCol of
    0: // 第一列：名称（字符串排序）
      SortFunc := function(const A, B: TMyData): Integer
        begin
          Result := CompareText(A.Name, B.Name);
          if not FSortAsc then Result := -Result;
        end;
    1: // 第二列：年龄（整数排序）
      SortFunc := function(const A, B: TMyData): Integer
        begin
          Result := A.Age - B.Age;
          if not FSortAsc then Result := -Result;
        end;
    2: // 第三列：分数（浮点数排序）
      SortFunc := function(const A, B: TMyData): Integer
        begin
          Result := Round((A.Score - B.Score) * 100); // 避免浮点精度问题
          if not FSortAsc then Result := -Result;
        end;
  end;

  // 对数据源执行排序
  FDataList.Sort(SortFunc);

  // 刷新ListView，触发OnData事件加载排序后的数据
  ListView1.Refresh;

  // （可选）设置列头排序箭头，提升用户体验
  for var Col in ListView1.Columns do
    Col.ImageIndex := -1;
  Column.ImageIndex := IfThen(FSortAsc, 0, 1); // 需提前在ImageList中添加箭头图标
end;

3. 确保OnData事件读取排序后的数据源 #

在ListView的OnData事件中，根据条目索引从排序后的数据源中取数据：

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
var
  Data: TMyData;
begin
  Data := FDataList[Item.Index] as TMyData;
  Item.Caption := Data.Name;
  Item.SubItems.Add(IntToStr(Data.Age));
  Item.SubItems.Add(FloatToStrF(Data.Score, ffFixed, 1, 2));
end;

关键说明 #

• 虚拟ListView的CustomSort无效是因为它依赖控件内部存储的条目数据，而虚拟模式下控件本身不保存这些数据，所以回调不会被触发。
• 所有排序逻辑必须围绕你的数据源展开，ListView仅负责展示排序后的结果。

内容的提问来源于stack exchange，提问作者Flavio