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.