报表预览上的保存是怎么做的？

Question

//保存对话框事件
procedure TMyPreview.SaveDlg1TypeChange(Sender: TObject);
begin    //set DefaultExt property of Savedialog
     with SaveDlg1 do
     case FilterIndex of
     0: DefaultExt := '.QR'
     1: DefaultExt := '.TXT'
     2: DefaultExt := '.HTM'
     3: DefaultExt := '.CSV'
     end;
end;//保存事件
procedure TMyPreview.ToolButton16Click(Sender: TObject);
begin    //save button
    if SaveDlg1.Execute then
    begin
     if (SaveDlg1.FIlterIndex <>1)and(CurRep = nil)then Exit;
     case SaveDlg1.FilterINdex of
        //--*.QR
     1: QRPreview1.QRPrinter.Save(SaveDlg1.FileName);
        //--*.TXT
     2: CurRep.ExportToFilter
(TQRAsciiExportFilter.Create(SaveDlg1.FileName));
        //--*.HTM
     3: CurRep.ExportToFilter
(TQRHTMLExportFilter.Create(SaveDlg1.FileName));
        //--*.CSV
     4: CurRep.ExportToFilter
(TQRCSVExportFilter.Create(SaveDlg1.FileName));
     end;
    end;
end;//读取保存文件事件
procedure TMyPreview.ToolButton17Click(Sender: TObject);
begin    //load button
     if OpenDlg1.Execute then
        QRPreview1.QRPrinter.Load(OpenDlg1.FileName);
end;

Answer 1

to boyqing(阿清) 谢谢，但保存事件、怎么提示TQRAsciiExportFilter为不可知类型。