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
Delphi DBGrid实现多选
原文：http://www.cnblogs.com/lrl45/p/5135429.html
