Esempio banale ( spero di aver capito bene la richiesta )
Creo una StringGrid
Creo un report con QR, collego gli eventi ...
Non so nelle nuove versioni ma nella vecchia c'era un demo autoesplicativo anche per questo caso ( non usava la StringGrid ma un file di testo ).
[CODE]
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[0,0] := 'ciao1';
StringGrid1.Cells[0,1] := 'ciao2';
StringGrid1.Cells[0,2] := 'ciao3';
StringGrid1.Cells[0,3] := 'ciao4';
StringGrid1.Cells[0,4] := 'ciao5';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
QuickReport1.Preview;
end;
procedure TForm1.QuickReport1BeforePrint(var PrintReport: Boolean);
begin
Tag := 0;
end;
procedure TForm1.QuickReport1NeedData(var MoreData: Boolean);
begin
if (Tag<5) then
Begin
QRLabel1.Caption := StringGrid1.Cells[0,Tag];
End;
MoreData := tag<5;
tag := tag + 1;
end;
TForm1.Button2Click(Sender: TObject);
begin
QuickReport1.Preview;
end;