你在动态数组的处理上有问题,因为对象已经不存在,不能进行Free操作。

解决方案 »

  1.   

    Form1是整个工程的主体Form1OnDestroy事件发生的时候已到程序的尾声所有的组件已经不存在了,都已从内存中Destroyed我想应该是错在这里!
      

  2.   

    1、不能进行Free操作是对的,但是我不知这个对象是在什么时候被释放
       的,从跟踪来看对象没有释放干净!
    2、TO:Whitehare,我不做OnDestroy,即不手动Free,错误依旧!
      

  3.   

    with TFView.Create(self) do
     try
        QuickRep1.Preview;
     finally
        free;
     end;
      

  4.   

    好象调用free函数,资源总是释放不干净!!我以前跟踪过,不知道什么原因
      

  5.   

    To:zcw
      错不在"QuickRep1.Preview"!而在整个程序Close的时候!
      

  6.   

        procedure TForm1.OnMyPreview(Sender: TObject);
        var
          ff : TFView;
        begin
          ff := TFView.Create(self);
          try
            ff.QRPreview1.QRPrinter := TQRPrinter(Sender);
            ff.ShowModal;
          finally
            Application.ProcessMessages  //<---------------(**)
            ff.Free;
          end;
        end;
      

  7.   

    to: peng01234
    好象没用的!