TDBGrid控件中对多个记录的处理[组图]

　　Delphi的TDBGrid控件主要用来处理数据表，它的属性中有一个dgMultiSelect，若此属性设定为TRUE，则 可以选中多个记录（可用CTRL＋鼠标左键选择多个记录）。 <!-- frame contents --> <!-- /frame contents --> 对选中的多个记录可以有以下几种处理方式，比较简单的两种是：清除所有的选择记录可用DBGrid1.SelectedRows.Clear语句;删除所有的选择记录可用DBGrid1.SelectedRows.Delete语句。但假如想获得选中的所有记录的其他信息，比如，在单独的一个窗体中显示用户选择的记录的第一个字段的内容（如所有选择的姓名）如何处理呢？这就要使用书签功能了，下面是笔者编写的一个程序中的过程，用来将用户选择的多个记录集中显示在另外一个窗体中（笔者使用的是DELPHI4）, 供参考使用。
　　 procedure GetSelectedRecord
　　 (DataSet : TDataSet; //数据表
　　 FieldName : String; //字段名称
　　 BookmarkList : TBookmarkList; // 书签、用来保存所选字段内容的
　　 Strings : TStrings); //字符串（用于将内容传递到另一个单独窗体中的TLIST控件中）
　　 var
　　 I: Integer;
　　 bm : TBookMark;
　　 begin
　　 Strings.Clear;
　　 with Dataset do
　　 begin
　　 DisableControls;
　　 bm := GetBookMark;
　　 try
　　 //每个选择的记录都有一个书签标志， 这就为处理它们提供了条件
　　 for I := 0 to BookmarkList.Count - 1 do
　　 begin
　　 Bookmark := BookmarkList[I];
　　 Strings.Add(DataSet.FindField(fieldname).AsString);
　　 end;
　　 finally
　　 GotoBookMark(bm);
　　 FreeBookMark(bm);
　　 EnableControls;
　　 end;
　　 end;
　　 end;
　　
　　 调用举例：
　　 GetSelectedRecord(Table1, NAME, DBGrid1.SelectedRows, Form2.ListBox1.Items); 更多内容请看数据库处理专题专题，或