S� para especialistas em Delphi

Question

Uso o XP-Delphi5-InterBase6Eu tiro qualquer relat�rio varias vezes usando a rotina abaixo e tudo sai normalmente, em uma determinada vez da o erro na linha marcada com seta. �Access violation at addre...

Anonymous · Answer

Tente colocar, [b:46a09d3bb6]imediatamente antes[/b:46a09d3bb6] de RazaoR_f:=nil;, RazaoR_f.Free;...

Anonymous · Answer

Esse problema � comum no Quick Report, ele costuma dar esses erros na plataforma XP, tinha um sistema que tinha relat�rios em Quick Report, tive que mudar para outro gerador de relat�rio, pois os mesmo n�o funcionavam no XP

Anonymous · Answer

Tente fechar o Form que cont�m o TQuickRep imediatamente ap�s chamar o preview...Application.CreateForm(TRazaoR_f, RazaoR_f); RazaoR_f.QRazaoR_f.PreviewModal;RazaoR_f.Close; <<<=========...

Anonymous · Answer

Obrigado a todos mas nada funcionou.Acho que e bug do Report...

Anonymous · Answer

Mas o erro que vc diz n�o acontece em run-time, nao eh?esse problema acontece qnd vc d� o preview em tempo de projeto,em run-time nunca aconteceu comigo.valeu....

Anonymous · Answer

desculpa ai,nao vi que vc tinha colocado o pedaco do fonte que dah erro. :)nesse caso, acho que o problema estah em usar previewmodal,sempre uso somente preview eh funciona blz....

Anonymous · Answer

Fa�a o seguinte:if RazaoR_f = nil Then   Application.CreateForm(TRazaoR_f,RazaoR_f)RazaoR_f.QRazaoR_f.PreviewModal; <<===== RazaoR_f.QRazaoR_f.Destroy; RazaoR_f.QRazaoR_f:=nil; RazaoR_f:=nil;ValeuAt� mais...

Anonymous · Answer

O erro acontece em tempo de projeto e em run-time.
Com previewmodal e s� preview.

Esperimente tirar o relat�rio umas vinte vezes sem sair do sistema.
As vezes comigo d� o erro na terceira vez as vezes d� na enesima.

Obrigado

Adilsond · Answer

procedure TMeuForm.VisualizarRel(Value: Boolean);
begin
with TRazaoR_f.Create(Self) do
try
QRazaoR_f.DataSet.Open; // monto os parametros da query no beforeopen
try
if QRazaoR_f.DataSet.IsEmpty then
raise Exception.Create(�N�o existem registros para a op��o escolhida.�);
case Value of
True : QRazaoR_f.Preview;
False: QRazaoR_f.Print;
end;
finally
QRazaoR_f.DataSet.Close;
end;
finally
QRazaoR_f.QRPrinter := nil;
QRazaoR_f.Free;
Free;
end;
end;

Anonymous · Answer

Utilize o procedimento abaixo:procedure QRDestroi;var  nIdx: Integer;begin  for nIdx := (Screen.FormCount-1) downto 0 do  with Screen.Forms[nIdx] do    if ClassName = �TQRStandardPreview� then      Close;end;======================Fa�a assim no bot�o de manda dar o preview:QrDestroi;QuickRep1.PreviewModal;...