FMX模式下TGrid如何点击列头进行数据排序

Question

在VCL模式下原来可以使用第三方控件实现在此功能，在FMX模式下，第三方控件比较少了，所以TGrid如何实现点击列头排序数据，一直困扰着我，还请朋友们指点一二

Answer 1

以下内容由CHATGPT及阿里嘎多学长共同生成、有用望采纳：

---

在FMX模式下实现TGrid控件的列头点击排序功能，可以通过自定义排序算法来完成。根据搜索结果^4^，有开发者分享了在FMX模式下使用TStringGrid控件实现点击表头排序的代码示例。以下是具体的实现方法和代码示例：

实现方法：

1. 监听列头点击事件：在TStringGrid控件中，可以通过监听列头点击事件（如OnHeaderClick事件）来触发排序。
2. 自定义排序算法：根据列头点击的位置，调用自定义的排序函数，对数据进行排序。

代码示例：

以下是一个简化的示例，展示了如何在FMX模式下对TStringGrid控件的数据进行排序：

procedure TForm1.strngrd1HeaderClick(Column: TColumn);
var
  c: integer;
  Grid: TStringGrid;
  b, e: Cardinal;
begin
  b := TThread.GetTickCount;
  Grid := strngrd1 as TStringGrid;
  with Grid do
  begin
    c := Column.Index;
    BeginUpdate;
    SortGrid(Grid, c, 1); // 调用排序函数，参数1表示按整型排序
    EndUpdate;
  end;
  e := TThread.GetTickCount;
  lbl1.Text := '用时：' + IntToStr(e - b) + ' 毫秒';
end;

// SortGrid是自定义的排序函数，这里提供了一个按整型排序的示例
procedure SortGrid(Grid: TStringGrid; sortcol, datatype: integer);
var
  i: integer;
  tempgrid: TStringGrid;
  list: array of integer;
begin
  tempgrid := TStringGrid.Create(nil);
  tempgrid.BeginUpdate;
  try
    with tempgrid do
    begin
      // 创建列
      for I := 0 to Grid.ColumnCount - 1 do
        TStringColumn.Create(tempgrid).Parent := tempgrid;
      
      // 复制行数据到临时grid
      RowCount := Grid.RowCount;
      for i := 0 to Grid.RowCount - 1 do
      begin
        list[i] := i;
        for j := 0 to Grid.ColumnCount - 1 do
          Cells[j, i] := Grid.Cells[j, i];
      end;
      
      // 调用快速排序算法
      QuickSort(Grid, list, 0, RowCount - 1, sortcol, datatype);
      
      // 将排序后的数据复制回原grid
      for i := 0 to RowCount - 1 do
        for j := 0 to Grid.ColumnCount - 1 do
          Grid.Cells[j, i] := tempgrid.Cells[j, list[i]];
    end;
  finally
    tempgrid.Free;
  end;
end;

参考资料：

• Delphi xe FireMonkey FMX StingGrid 点击表头排序_delphi...

请注意，上述代码仅为示例，实际使用时可能需要根据具体需求进行调整。例如，排序算法可以根据数据类型（字符串、整数、浮点数等）进行定制，以满足不同的排序需求。