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