如何在DBGrid与ClientDataSet排序后恢复正确选中行

问题原因 #

DBGrid的选中状态默认绑定行的物理位置，排序后数据行的位置发生变化，但选中标记不会随数据行迁移，导致原选中的对应数据行不再处于选中状态。

修改后的代码 #

procedure TDataModuleBase.SortClientDataSet(AscendingFields, DescendingFields: string);
var
  I : integer;
  IndexNames : TStringList;
  SelectedIDs: TStringList;
  Bookmark: TBookmark;
begin
  SelectedIDs := TStringList.Create;
  try
    ClientDataSetEntity.DisableControls;
    
    // 记录选中行的唯一主键（此处假设主键为ID，需替换为实际字段名）
    if ClientDataSetEntity.Active then
    begin
      Bookmark := ClientDataSetEntity.GetBookmark;
      try
        ClientDataSetEntity.First;
        while not ClientDataSetEntity.Eof do
        begin
          if ClientDataSetEntity.Selected then
            SelectedIDs.Add(ClientDataSetEntity.FieldByName('ID').AsString);
          ClientDataSetEntity.Next;
        end;
        ClientDataSetEntity.GotoBookmark(Bookmark);
      finally
        ClientDataSetEntity.FreeBookmark(Bookmark);
      end;
    end;

    // 原有排序逻辑
    ClientDataSetEntity.IndexName := '';

    if (AscendingFields <> '') or (DescendingFields <> '') then
    begin
      IndexNames := TStringList.Create;
      try
        ClientDataSetEntity.GetIndexNames(IndexNames);

        for I := IndexNames.Count - 1 downto 0 do
        begin
          if IndexNames[I] = 'index0' then
            ClientDataSetEntity.DeleteIndex(IndexNames[I]);
        end;

        ClientDataSetEntity.AddIndex(
              'index0',
              AscendingFields,
              [ixCaseInsensitive],
              DescendingFields,
              '',
              0
              );

        ClientDataSetEntity.IndexName := 'index0';
      finally
        IndexNames.Free;
      end;
    end;
    ClientDataSetEntity.First;

    // 恢复选中状态
    if SelectedIDs.Count > 0 then
    begin
      Bookmark := ClientDataSetEntity.GetBookmark;
      try
        ClientDataSetEntity.First;
        while not ClientDataSetEntity.Eof do
        begin
          ClientDataSetEntity.Selected := (SelectedIDs.IndexOf(ClientDataSetEntity.FieldByName('ID').AsString) <> -1);
          ClientDataSetEntity.Next;
        end;
        // 定位到第一个选中行，保持焦点
        if SelectedIDs.Count > 0 then
          ClientDataSetEntity.Locate('ID', SelectedIDs[0], []);
      finally
        ClientDataSetEntity.FreeBookmark(Bookmark);
      end;
    end;
  finally
    SelectedIDs.Free;
    ClientDataSetEntity.EnableControls;
  end;
end;

关键说明 #

1. 记录主键：排序前遍历数据集，将选中行的唯一主键存入SelectedIDs，用Bookmark保存当前行位置，遍历后恢复，避免影响用户操作的上下文。
2. 恢复选中：排序完成后，再次遍历数据集，通过主键匹配找到原选中行，设置Selected属性为True，确保选中状态跟随数据行。
3. 内存管理：对所有创建的TStringList和Bookmark都添加了try-finally块，避免内存泄漏。
4. 适配调整：如果你的数据表主键不是ID，需要将代码中FieldByName('ID')替换为实际的主键字段名（如Code、UUID等）。

内容的提问来源于stack exchange，提问作者GuidoG