看不到 QReport自定义预览窗口保存为txt的文件
savedialog1 其 DefaulExt 为*.QRP
其Filter 为quickrep files(*.QRP)|*.QRP|text files(*.txt)|*.txt

保存代码如下：

[code delphi]
var fileext:string;
begin
savedialog1.Filter:='quickrep files(*.QRP)|*.QRP|text files(*.txt)|*.txt';
if savedialog1.Execute then
begin
fileext:=ansiuppercase(extractfileext(savedialog1.FileName));
if (SaveDialog1.FIlterIndex <>1) and (quickrep = nil) then
Exit;
if fileext='.QRP' then
begin
QRPreview1.QRPrinter.Save(savedialog1.FileName);
end;
if fileext='.TXT' then
begin
quickrep.ExportFilter:=TQRAsciiexportfilter.Create(savedialog1.FileName);
end;
end;
end;
[/code]
保存为QRP 没有问题 可是保存为txt时 根本看不到保存为txt的文件

谢谢指点

編輯記錄

在 Qreport Page 有一個元件QRTextFilter1, 請加上它。

------
努力會更接近成功

早就加上了的 还是一样的情况

TQRTextFilter.Create(savedialog1.FileName);
end;
end;
end;

------
努力會更接近成功

if fileext='.TXT' then 
begin
quickrep.ExportFilter:=TQRTextFilter.Create(savedialog1.FileName);
end;

提示： Incompatible types: 'TComponent' and 'TFileName'