Delphi 7 中DBGrid的排序


本文整理自网络,侵删。

 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;

相关阅读 >>

Delphi 简化版的inputquery 中文版输入对话框

Delphi 合并文本行的函数

Delphi 提升进程令牌

Delphi 快速检测是否联网

Delphi 关于动态数组指针操作的两个例子

Delphi中clientdataset的用法小结

Delphi 如何比较两个二维数组是否相等

Delphi 验证ip地址

Delphi自动检测u盘插入、拔出及获取u盘盘符

Delphi tdictionary 泛型如何排序

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...