delphi 中dbgrid升降序的简约代码

最新推荐文章于 2021-05-25 01:54:49 发布

wonder_su

最新推荐文章于 2021-05-25 01:54:49 发布

阅读量308

点赞数

文章标签： delphi delete integer string

本文链接：https://blog.csdn.net/wonder_su/article/details/2054803

版权

procedure TForm13.DBGrid1TitleClick(Column: TColumn);
var
i:integer;
Str:string;
begin
      for i:=0 to DBGrid1.Columns.Count-1 do
begin
   Str:=DBGrid1.Columns[i].Title.Caption;
   if (pos('▲',cStr)=1) or (pos('▼',cStr)=1) then
   begin
    Delete(cStr,1,2);
    DBGrid1.Columns[i].Title.Caption:=Str;
   end;
   //--------------------------------------
end;
       if pos('▲',s)=1 and pos('▼',s) then
          delete(s,1,2);
       if pos('ASC',s)=0 then //如果之前是降序或无时
         begin
           s:=column.FieldName+' ASC';
           Column.Title.Caption:='▲'+Column.Title.Caption;
         end
       else if pos('ASC',s)>0 then
           begin
             s:=column.FieldName+' DESC';
             Column.Title.Caption:='▼'+Column.Title.Caption;
         end;
       //--------------------------------------
       try
          adoquery1.Sort:=s;//s是一个公共变量
       except
           exit;
       end;
       //------------------------