关于dbgrid中的数据能否通过一段程序，把所有显示的记录都选中,就是全选了？

Question

可以
procedure TfrmGoodsInfo.actSelectAllGoodsExecute(Sender: TObject);
var
  bmMark: TBook;
  i: Integer;
begin
  if sqlInfo.RecordCount = 0 then Exit;
  with sqlInfo do
  begin
    bmMark := GetBook;
    i := 0;
    First;
    while i < RecordCount do
    begin
      //实现记录选择
      grdInfo.SelectedRows.CurrentRowSelected := true;
      Inc(i);
      Next;
    end;
    GotoBook(bmMark);
    FreeBook(bmMark);
  end;
end;

Answer 1

steps，你好！谢谢你的答案，按你的方法已经实现的！