DBGridEh 多行选择

1. procedure TfrmMain.Button5Click(Sender: TObject);
2. var
3.   I,J: Integer;
4.   SelectedRows :TBookmarkListEh ;
5.   s:string;
6. begin
7.   ListBox1.Clear;
9.   if DBGridEh1.SelectedRows.Count >0 then begin
10.      with DBGridEh1.DataSource.DataSet  do begin
11.        for I := 0 to DBGridEh1.SelectedRows.Count -1 do begin
12.          GotoBookmark(Pointer(DBGridEh1.SelectedRows.items[i]));
13.          s :='';
14.          for j := 0 to FieldCount -1 do begin
15.            if J>0 then  s :=s + ' ';
16.            s := s+ Fields[j].AsString;
17.          end;
18.          ListBox1.Items.Add(s);
20.        end;
22.      end;
23.   end;
24. end;