Delphi DBGrid实现多选

DBGrid1.Options:= DBGrid1.Options+[dgMultiSelect];  //先设置DBGrid1的多选属性为True

if DBGrid1.SelectedRows.Count>0 then

begin

  with DBGrid1.DataSource.DataSet do

  for i:=0 to DBGrid1.SelectedRows.Count-1 do

  begin

    GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));

    if Edit1.Text='' then

      Edit1.Text:=trim(FieldValues['CODE'])

    else

      Edit1.Text:=Edit1.Text+','+trim(FieldValues['CODE']);

  end;

end