Fórum mult-select no DBGrid #229959

var 
  Form1: TForm1; 
  Vproc, Vmax:integer; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
   Vproc:=0; 
   Vmax:=DBGrid1.SelectedRows.Count-1; 
   QuickRep1.Preview; 
end; 

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean); 
begin 
   if Vproc <= Vmax then 
      begin 
      DBGrid1.DataSource.DataSet.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[Vproc])); 
      inc(Vproc); 
      MoreData:=True; 
      end; 
end;