Quickreport ohne Datenbank

[ConstantGardener]

Hallo allefor19,

ich hatte dich da scheinbar etwas falsch verstanden. Du musst für jede Column ein QRLabel benutzen und dort dann die Items-Werte einfügen.

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.Items.Item[z].caption; 
end;

... sorry mit ListView hab ichs nicht so. VALUE ist vom Typ String, deshalb muß noch CAPTION hinter das ITEMS.ITEM[z].