利用书签功能对TDBGrid控件中多个记录的处理

DELPHI 的TDBGrid 控件主要用来处理数据表，它的属性中有
一个dgMultiSelect，若此属性设定为TRUE，则可以选中多个记录
（可用CTRL ＋鼠标左键选择多个记录）。对选中的多个记录
可以有以下几种处理方式，比较简单的两种是：清除所有
的选择记录可用DBGrid1.SelectedRows.Clear 语句; 删除所有的选
择记录可用DBGrid1.SelectedRows.Delete 语句。但如果想获得选中
的所有记录的其他信息，比如，在单独的一个窗体中显示
用户选择的记录的第一个字段的内容（如所有选择的姓名）
如何处理呢？这就要使用书签功能了，下面是笔者编写的
一个程序中的过程，用来将用户选择的多个记录集中显示
在另外一个窗体中（笔者使用的是DELPHI4）, 供参考使用。

procedure GetSelectedRecord
(DataSet : TDataSet; FieldName : String;
BookmarkList : TBookmarkList; Strings : TStrings);
file://这个过程中的参数分别为：数据表、字段名称、
书签、用来保存所选字段内容的
file://字符串（用于将内容传递到另
一个单独窗体中的TLIST控件中）
var
I: Integer;
bm : TBookMark;
begin
Strings.Clear;
with Dataset do begin
DisableControls;
bm := GetBookMark;
try
file://每个选择的记录都有一个书签标志，
这就为处理它们提供了条件
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