procedure TMainFrm.DBGrid2TitleClick(Column: TColumn);
var
flag:Boolean;
tempstr:string;
begin
tempstr:=Column.Title.Caption;
if Pos('▲',tempstr)>0 then flag:=False else flag:=True;
if (Pos('▲',tempstr)>0) then
tempstr:=Copy(tempstr,1,Pos('▲',tempstr)-1)
else
if Pos('▼',tempstr)>0 then
tempstr:=Copy(tempstr,1,Pos('▼',tempstr)-1);
if flag then
begin
ADOQuery1.Sort:=Column.FieldName+' ASC';
Column.Title.Caption:=tempstr+'▲';
end
else
begin
ADOQuery1.Sort:=Column.FieldName+' DESC';
Column.Title.Caption:=tempstr+'▼';
end;
end;