var QR: TQuickRep; SL: TStringList; Row: Integer; begin QR := TQuickRep.Create(nil); try QR.LoadFromFile('report.qrp'); QR.Prepare; SL := TStringList; Row := 0; QR.DataSet.First; while not QR.DataSet.Eof do begin SL.Add(Format('%s,%s,%f', [ QR.DataSet.FieldByName('Name').AsString, QR.DataSet.FieldByName('Date').AsString, QR.DataSet.FieldByName('Amount').AsFloat ])); QR.DataSet.Next; Inc(Row); end; SL.SaveToFile('output.csv'); finally QR.Free; end; end; Best for: Modifying existing compiled apps (if source is unavailable).
Treat the QRP as a design spec for a data extraction job, not as a data file. Your output is only as good as the live data available when you “run” that spec. qrp file to excel
Some QuickReport versions allow you to redirect output to a TQRTextFilter or TQRCSVFilter . You can then save that stream as .csv and open in Excel. var QR: TQuickRep; SL: TStringList; Row: Integer; begin
