我想用 QuickReport 在 run time 時 load 一個已知的檔案, 當我用...

ARpt := TQRInv.Create(nil);
with ARpt do
begin
  try
    QRPrinter.Load(sFile);
  finally
    ARpt := nil;
    Free;
  end;
end;

就會出現 AV 的錯誤, 但如果在 Preview 已 show 出時用它的 button 去 load file 便沒有問題, 這是什麼的原因呢? 同樣這種問題都會在 Save 時出現... 是否不能用 default 的 preview form 去做這種事嗎? 希望你可以幫到我! Lonnie

我已解決此問題了!

procedure TFrmViewer.bbOpenClick(Sender: TObject);
var
  AView : TQRView;
begin
  if not FileExists(EditFile.Text) then
  begin
     MessageDlg('File does not exist !', mtError, [mbOK], 0);
     Abort;
  end;      AView := TQRView.Create(nil);
  with AView do
  begin
    try
      Prepare;
      QRPrinter.Load(EditFile.Text);
      QRPrinter.PreviewModal;
    finally
      AView := nil;
      Free;
    end;
  end;
end;    procedure TFrmViewer.bbSaveClick(Sender: TObject);
var
  AView : TQRView;
begin
  if FileExists(EditFile.Text) then
  begin
     if MessageDlg('File already exists, do you want to overwrite it ?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
        Abort;
  end;      AView := TQRView.Create(nil);
  with AView do
  begin
    Prepare;
    QRPrinter.Save(EditFile.Text);
    QRPrinter.Free;
    QRPrinter := nil;
  end;      if FileExists(EditFile.Text) then
     MessageDlg('File is saved !', mtInformation, [mbOk], 0);
end;

不知能否為自己給分呢?

對不起,能否請問您 tqrview 我要uses什麼unit進來呢??

引言: 對不起,能否請問您 tqrview 我要uses什麼unit進來呢??

TQRView = class(TQuickRep) 是一張空白的 Quick Report Form 是給你 Load File 用的! Lonnie