Question

Delphi DBGrid 怎样实现点击排序

Answer 1

如果是dbgridEh不用写代码就可以实现
dbgrid也行，利用ADOQuery.Sort属性进行排序，Column.Title.Caption可以加个三角符号

DBGrid的onTitleClick事件:
if ADOQuery1.Sort<>(Column.FieldName+' ASC') then
ADOQuery1.Sort:=Column.FieldName+' ASC'
else
ADOQuery1.Sort:=Column.FieldName+' DESC';