怎样把一个报表存成txt文件？(100分)

原地址
http://www.delphibbs.com/delphibbs/dispq.asp?lid=978227
难道没一个人会吗？

什么报表格式，是EXCEL么？

用fastreport很方便啊。

SaveDialog1.Filter := 'Text files (*.txt)|*.TXT|Htm files (*.htm)|*.HTM|Csv files(*.csv)|*.CSV';
if Savedialog1.Execute then
begin
FileExt:=AnsiUpperCase(ExtractFileExt(SaveDialog1.filename));
if (FileExt='.HTML') or (FileExt='.HTM') then
rep.exporttoFilter(TQRHTMLDocumentFilter.Create(savedialog1.filename))
else
if FileExt='.TXT' then
rep.exporttoFilter(TQRAsciiExportFilter.Create(savedialog1.filename))
else
if FileExt='.CSV' then
rep.exporttoFilter(TQRCommaSeparatedFilter.Create(savedialog1.filename));
end;

我用的是quickreport

多人接受答案了。