請教各位先進: 我仿照討論文章內的辦法, 想要嘗試將一qreport save後, 再load進來, 但發現無法載入, 在preview內看不到任何東西, 但我確定所存的test.qrp沒有問題, 因在preview內有一個載入的icon, 將test.qrp載入就可以看到東西了??? procedure TForm1.Button1Click(Sender: TObject); begin QuickReport2.Preview; QuickReport2.Prepare; QUICKReport2.QRPrinter.Save('c:\test.qrp'); end; procedure TForm1.Button2Click(Sender: TObject); Var Qpp: TQuickrep; Begin Qpp := TQuickRep.Create(self); Qpp.Prepare; Qpp.QRPrinter.Load('c:\test.qrp'); try Qpp.Preview; finally Qpp.Free; end;

try
  Qpp.PreviewModal;
finally
  Qpp.Free;
end;    

發表人 - hahalin 於 2004/07/16 06:57:05

版主大人, 我試過了, 還是不行耶~,跟使用preview是一樣的結果. 因為是測試, 所以在test.qrp裡面我只放了一個很小的QRImage, 所以我想應該也不是記憶體的問題.

可以將你完整的程式放上來嘛??

Hi ravel,    試試以下方法 http://delphi.ktop.com.tw/topic.php?topic_id=23565

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;

其中 TQRView = class(TQuickRep) ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝Fishman大哥, 問題已解決了, 不愧是五星級的高手! 另再請教 finally AView := nil; Free; end; 可不可以直接Free, 而不下 AView := nil, 兩者有什麼差別?

Hi ravel,    你謬讚了，看年紀，我才是小弟，KTOP 人才如林，小弟不過只是借花獻佛罷了！    關於 Free 及 FreeAndNil，請見以下連結 change.jian 版大精闢的見解： http://delphi.ktop.com.tw/topic.php?topic_id=49888 以及下列討論各位大大對於 FreeAndNil 的詳細說明 http://delphi.ktop.com.tw/topic.php?topic_id=48788 發表人 -

------
Fishman

引言: Hi ravel, 你謬讚了，看年紀，我才是小弟，KTOP 人才如林，小弟不過只是借花獻佛罷了！ 關於 Free 及 FreeAndNil，請見以下連結 change.jian 版大精闢的見解： http://delphi.ktop.com.tw/topic.php?topic_id=49888 以及下列討論各位大大對於 FreeAndNil 的詳細說明 http://delphi.ktop.com.tw/topic.php?topic_id=48788 發表人 - >< face="Verdana, Arial, Helvetica"> 與君一席話, 勝讀十年書, Thanks again! 人性本善的理論，在KTop完全得到印證