Grid中的排序功能

最新推荐文章于 2021-10-08 13:59:35 发布

zwylly99

最新推荐文章于 2021-10-08 13:59:35 发布

阅读量1.2k

点赞数

文章标签： string

本文链接：https://blog.youkuaiyun.com/zwylly99/article/details/1789442

版权

本文介绍了一个用于 Delphi 应用程序中 DBGrid 控件的排序过程实现。该过程通过修改 TClientDataset 的索引来实现升序或降序排序，并考虑了不同字段类型如 fkLookUp 和 fkData 的特性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure DBGridSort(FSortColumn: TColumnEh;out pbASC:boolean);
var
OldIndex: string;
begin
// if (FSortColumn.Grid.DataSource = nil) then Exit;
// if not (FSortColumn.Grid.DataSource.DataSet.Active) then Exit;
OldIndex := TClientDataset(FSortColumn.Grid.DataSource.DataSet).IndexName;
if OldIndex <> '' then
begin
    TClientDataset(FSortColumn.Grid.DataSource.DataSet).IndexName := '';
    TClientDataset(FSortColumn.Grid.DataSource.DataSet).DeleteIndex(OldIndex);
end;
case pbASC of
    True:
      begin
        if FSortColumn.Field.FieldKind = fkLookUp then
          TClientDataset(FSortColumn.Grid.DataSource.DataSet).AddIndex('px', FSortColumn.Field.KeyFields, [ixDescending]) //已经是升序就按降序排列
        else if FSortColumn.Field.FieldKind = fkData then
          TClientDataset(FSortColumn.Grid.DataSource.DataSet).AddIndex('px', FSortColumn.Field.FieldName, [ixDescending]);
      end;
else //否则按升序排列
    begin
      if FSortColumn.Field.FieldKind = fkLookUp then
        TClientDataset(FSortColumn.Grid.DataSource.DataSet).AddIndex('px', FSortColumn.Field.KeyFields, [ixPrimary])
      else if FSortColumn.Field.FieldKind = fkData then
        TClientDataset(FSortColumn.Grid.DataSource.DataSet).AddIndex('px', FSortColumn.Field.FieldName, [ixPrimary]);
    end;
end; {end case}
TClientDataset(FSortColumn.Grid.DataSource.DataSet).IndexName := 'px';
pbASC := not pbASC;
end;