How to print listview in quickreports

Hi !

In main program (mainForm) you fill the listview with data.
Then create a form with quickreport on it.
 for example:
 in main:
     Application.CreateForm(TForm1, Form1);
     Form1.QuickRep1.Preview;
in report:
before.. implementation
  var
  Lw_count : integer;

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
  Lw_count  := -1;
end;

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
  MoreData := Lw_count < mainForm.listview.items.count -1;
  inc(Lw_count);
end;

procedure TForm1.DetailBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
-- process :  mainForm.listview.items

Not tested- just from head.
worth to try.

I have listview in several forms, I want on procedure in the mainform that I can use all other forms.
an example will be perfect.

Then forget quickrep1.onNeedData event.
Better use Query or AdoQuery to collect data from listview into some table.
Then use this table as input in QuickReport.

How do you add at runtime ADODataset or ADOQuery to quickReport. It should be a way that I can use the same procedure for all the form with different type queries in the ADO. The ADOQuery or Dataset should be input of this procedure,  Can you provide with a source code for example.

This is brief example with BDE-Query-also not tested.

in Main program:

  with Query do
     begin
     Close;
     Sql.Clear;
     Sql.Add('CREATE TABLE [dbo].[xxx]');
     Sql.Add('  (country  varchar(30) null, town  varchar(30) null)');
     ExecSql;
     Close;
  end;

  with ListView do
    for i := 0 to Items.Count - 1 do    // do not forget subitems handling
       begin
       with Query do
          begin
          Close;
          Sql.Clear;
          Sql.add('Insert into [dbo].[xxx] (country,  town)');
          Sql.add('                 Values (  :c ,    '''')');
          Parambyname('c').asstring := Items[i].Caption;
          ExecSql;
          Close;
       end;
    end;
end;

in Report:

drop BDE Query on the form

in Object inspector
  set database name for Query
  set Quickrep1.Dataset  to  Query

procedure TForm1.FormCreate(Sender: TObject);
begin
   with Query do
      begin
      Close;
      Sql.Clear;
      Sql.add('select country, town from [dbo].[xxx]');
      Sql.add(' order by country, town');
      Open;
   end;
end.

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
   QRLabel1.Caption := Query.fieldbyname('country').asstring;
   QRLabel2.Caption := Query.fieldbyname('town').asstring;
end;

Let try it and let you know bokist

This will not work becuse the items need to created at runtime