Einzelnen Beitrag anzeigen

ConstantGardener

Registriert seit: 24. Jan 2006
Ort: Halberstadt
376 Beiträge
 
Delphi 10.4 Sydney
 
#13

Re: Quickreport ohne Datenbank

  Alt 15. Apr 2007, 19:15
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].
Andreas Schachtner
  Mit Zitat antworten Zitat