Delphi 7 中DBGrid的排序。

最新推荐文章于 2024-03-01 21:43:27 发布

原创最新推荐文章于 2024-03-01 21:43:27 发布 · 2.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

Delphi 专栏收录该内容

54 篇文章

订阅专栏

本文探讨了在数据报告中使用排序算法实现数据排序的功能，通过点击标题栏触发排序，实现了数据的升序或降序排列。文章详细介绍了算法的具体实现过程，包括如何根据字段名称进行排序操作，并在界面上更新排序后的数据展示。

procedure TfrmTraceReport.DBGrid1TitleClick(Column: TColumn);
var
  SortField, FieldTitle: string;
begin

  SortField := Column.Field.FieldName;
  FieldTitle := Column.Title.Caption;
  ShowMessage(SortField + '    ' + FieldTitle);

  if Pos('▲', FieldTitle) > 0 then
  begin
    ConnectDM.ADOQryTraceReport.Sort := SortField + ' ASC';
    FieldTitle := StringReplace(FieldTitle, '▲', '▼', [rfReplaceAll]);
  end
  else if Pos('▼', FieldTitle) > 0 then
  begin
    ConnectDM.ADOQryTraceReport.Sort := SortField + ' DESC';
    FieldTitle := StringReplace(FieldTitle, '▼', '▲', [rfReplaceAll]);
  end
  else
  begin
    ConnectDM.ADOQryTraceReport.Sort := SortField + ' DESC';
    FieldTitle := FieldTitle + '▼';
  end;

  DBGrid1.Columns[Column.Index].Title.Caption := FieldTitle;

end;