巧用DBGrid控件的Sort属性实现“点击标题栏自动排序功能”。(改进版本)[1]

曾看见csdn文档中有介绍到:通过adoquery或其它数据集组件的sort属性配合dbgrid的ontitleclick事件，可以方便地实现此功能。因为sort属性可以让活动数据集按指定的字段进行排序，也可以选择排序方式（升序/降序)。这个功能的确很实用。(http://blog.csdn.net/jlee084/archive/2004/12/20/223284.aspx)。我改进了一下这功能,在单击标题后分别在标题加上三角(▲)和倒三角形(▼)表示当前排序方式为升序和降序;

procedure tform1.dbgrid1titleclick(column: tcolumn);
var
  i,ii:integer;
  cstr:string;
  c:tcolumn;
begin
    for ii:=0 to tdbgrid(column.grid).columns.count-1 do
    begin
      c:=tdbgrid(column.grid).columns[ii];
      cstr:=c.title.caption;
      if (pos('▲',cstr)=1) or (pos('▼',cstr)=1) then
      begin
        delete(cstr,1,2);
        c.title.caption:=cstr;
      end;
    end;

  for i:= 1 to dbgrid1.columns.count do
  begin
    //恢复所有标题字体为默认