紧急求救：怎样当点击一个按钮时，能选中dbgrid控件中的全部记录？

Question

写代码就可以了，还有dbgrid的options的dbmultiselect要设定为true才行。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  DBGrid1.DataSource.DataSet.First;
  while not DBGrid1.DataSource.DataSet.Eof do begin
    DBGrid1.SelectedRows.CurrentRowSelected := True;
    DBGrid1.DataSource.DataSet.Next;
  end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i :integer;
begin
  table1.First;
  for I := 0 to table1.RecordCount - 1 do
  begin
    DBGrid1.SelectedRows.CurrentRowSelected := true;
    table1.Next;
  end;
end;

Answer 3

//zswang又拍拍cobi的头“用这个不是更好”procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Table1.RecordCount - 1 do begin
    Table1.RecNo := I;
//  ~~~~~~~~~~~~~~~~~~
    DBGrid1.SelectedRows.CurrentRowSelected := True;
  end;
end; 

Answer 4

//拿出一颗糖出来递给cobi“鼓励你学习用功、乐意助人！特意在CSDN买来给你的”