Delphi dbgrid 如何选择多行记录

要选择多行记录，可以使用Delphi的DBGrid的多选功能。以下是一个例子来演示如何选择多行记录：

首先，在DBGrid的Options属性中启用多选功能。设置Options的goMultiSelect属性为True。
在DBGrid的OnCellClick事件中编写代码来处理多选。例如，可以使用一个TList来保存所选中的行号，然后在OnDrawColumnCell事件中根据行号来绘制被选中的行。

var
  SelectedRows: TList;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  i: Integer;
begin
  if DBGrid1.SelectedRows.CurrentRowSelected then
  begin
    // 如果当前行已被选中，则从SelectedRows中移除
    i := SelectedRows.IndexOf(Pointer(DBGrid1.DataSource.DataSet.RecNo));
    if i <> -1 then
      SelectedRows.Delete(i);
  end
  else
  begin
    // 如果当前行未被选中，则添加到SelectedRows中
    SelectedRows.Add(Pointer(DBGrid1.DataSource.DataSet.RecNo));
  end;
  DBGrid1.Repaint; // 重新绘制DBGrid
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if SelectedRows.IndexOf(Pointer(DBGrid1.DataSource.DataSet.RecNo)) <> -1 then
  begin
    // 如果当前行在SelectedRows中，则绘制为选中状态
    DBGrid1.Canvas.Brush.Color := clHighlight;
    DBGrid1.Canvas.Font.Color := clHighlightText;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

使用SelectedRows列表来获取所选中的行。例如，可以使用以下代码来获取所选中行的记录数：

var
  i: Integer;
begin
  for i := 0 to SelectedRows.Count - 1 do
  begin
    // 获取被选中行的记录
    DBGrid1.DataSource.DataSet.GotoBookmark(Pointer(SelectedRows[i]));
    // 处理记录
  end;
end;

这样就可以实现在Delphi的DBGrid中选择多行记录的功能了