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;