[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    QuickReport includes the TQRListBuilder, a component for dynamically
    creating a simple list report with only a few lines of code. You can
    assign the report's dataset to your grid's datasource.dataset and have a
    report that displays the same data as your grid:

    procedure TformMain.ToolButton1Click(Sender: TObject);
    var
      aReport : TQuickRep;
    begin
      with TQRListBuilder.Create(Self) do
        try
          DataSet := DBGrid1.DataSource.DataSet;
          Active := True;
          try
            aReport := FetchReport;
            aReport.Preview;
          finally
           aReport.Free;
        end;
      finally
        Free;
      end;
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]