Quickreport ohne Datenbank

[ConstantGardener]

Hallo alefor19,

in NeedData würde ich einen Zähler mitlaufen lassen und vergleichen ob er die Anzahl der Items im ListView erreicht hat. Wenn nicht dann Moredata:=true. Also etwa so.

Delphi-Quellcode:

procedure TQuickReport2.QuickRepBeforePrint (Sender: TObject); 
begin 
 z:=0;
end; 

procedure TQuickReport2.QuickRepNeedData(Sender: TObject; var MoreData: Boolean); 
begin 
 Moredata:=z<Form1.ListView1.items.count; 
 inc (z);
end; 

procedure TQuickReport2.QRLabel12Print(sender: TObject; var Value: String); 
begin 
 Value:=Form1.ListView1.Column[z]; 
end;

...hab ich jetzt eben im Board zusammengeschrieben, sollte aber in etwa funktionieren. Das ganze geht natürlich auch sehr gut um damit Stringgrids, Stringlisten usw. auszudrucken. Der Anwender bekommt einen einheitliche GUI (Vorschau usw.) für alle Reports. Egal ob direkt aus der Datenbank oder aus Berechnungen usw.