在线等待,预览问题，快速给分

Question

我打印预览多次后（不定），会报这样一个错误a component named QRStandardPreview already exists  ,然后就不能预览了。怎样避免这种错误？
请指教，最好给出相应代码！我的代码如下：
   from47里有一个QuickRep1try
  Form47.QuickRep1.Preview ;
finally
  Form47.Free;
end;

Answer 1

试试改成
try
  Form47.QuickRep1.Preview ;
finally
　Form47。QuickRep1:= nil;　
  Form47.FreeOnRelease;
  Form47:= nil;
end;

Answer 2

Form47.QuickRep1:= nil;　编译不通过！！！！！！！！

Answer 3

try
  Form47.QuickRep1.Preview ;
finally
　Form47。QuickRep1:= nil;　
  Form47.FreeOnRelease;
  Form47:= nil;
end;不能释放内存，如果多次浏览系统资源会不够！

Answer 4

try
  Form47.QuickRep1.Preview ;
finally
　Form47。QuickRep1:= nil;　
  Form47.FreeOnRelease;
  Form47:= nil;
end;不能释放内存，如果多次浏览系统资源会不够！
Form47:= nil;不会编译！
救命！
救命！
救命！
救命！救命！救命！救命！救命！
救命！救命！救命！救命！救命！救命！救命！救命！
救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！
救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！
救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！救命！

Answer 5

//我一般是这么做的。procedure print;
var 
  Form47: TForm47;
begin
  Form47 := TForm47.create(self); 
  try
    Form47.QuickRep1.PreviewModal;
  finally
    Form47.free;
  end;
end;

Answer 6

你这样试试：procedure print;
begin
  if not Assigned(Form47) then
    Form47 := TForm47.create(self); 
  try
    Form47.QuickRep1.PreviewModal;
  finally
    Form47 := nil
  end;
end;

Answer 7

a component named QRStandardPreview already exists 
我哭，我苦

Answer 8

请问阁下用的是不是Delphi 6.0，好象打印预览方面有些Bug
可以式着载一个qr351sd6,
qr351sd6是QReport的最新版，修正了一些打印错误
式式看哦

Answer 9

a component named QRStandardPreview already exists 
why?Bug?