Ese ejemplo es dificil de digerir, así que te he preparado algo más simple. Necesitas un TTable.
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var q:TQuickRep;
listaCampos:TStringList;
i:Integer;
begin
listaCampos:= TStringList.Create;
try
for i:=0 to Table1.Fields.Count-1 do
listaCampos.Add(Table1.Fields[i].FieldName);
Table1.Open;
q:=nil;
QRCreateList(tcustomquickrep(q),nil,Table1,'Listado Principal',listaCampos);
q.Previewmodal;
finally
listaCampos.Free;
FreeAndNil(q);
end;
end;
los uses que necesitarás, tarde o temprano, son :
quickrpt, qrextra, qrprntr, qrctrls;