下载并安装QuickRep3.08(www.51delphi.com,好好找找)
安装后在QuickRep的控件页中就增加一个TQRRTFFilter
用它就可以了!
用法:
procedure MyForm.ButtonClick(Sender : TObject);
var
AExportFilter : TQRRTFFilter;
begin
AExportFilter := TQRRTFFilter.Create('yourfilename.rtf');
try
YourReport.ExportToFilter(AExportFilter)
finally
AExportFilter.Free;
end;
end;