demasiados access violation

[ingel]

HOla foro .. puede que tenga un dia con el biorritmo bajo pero los access violation me estan fastidiando sobremanera ..
Todo comenzo con un simple listado igual a TODOS los demas , uso una tabla temporal , alli grabo con un SP lo que necesito imprimir , la asigno a un
QReport y relaciono un QRDBText con los campos de dicha tabla.
bueno .. en ESTE caso ..antes de hacer el .Print debo hacer el Open de la tabla .. pues me da access violation ..y no hay caso ..
he probado 'mover' el codigo en diferentes partes pero nada ..
(hago el open de la tabla desde el entorno y abre sin problema .. los datos grabados en la tablas estan correctos)

Tal vez el problema venga por otro lado .. y este haciendo algo incorrectamente..
Estoy ejecutando una ventana principal que usa 'varios' forms ..
los creo TODOS juntos hago el Showmodal de ESA ventana principal
y al salir hago el FREE de todos juntos ..

por ej..

Application.CreateForm(TFPediSeg,FPediSeg);
Application.CreateForm(TFPedDetProd,FPedDetProd);
Application.CreateForm(TFCompItems,FCompItems);
...// son 7 u 8 forms

FPediSeg.Showmodal

CONTROL /* esto es un procedimiento de control que hace un open de una tabla general del sistema..*/

FPediSeg.free
FPedDetProd.free
FCompItems.free
...

La primera duda es el ORDEN en que debo hacer los FREE?

Digo esto porque ahora simplemente voy entrando a sucesivos forms (ya creados en el principal) mostrandolos con Showmodal y simplemete SALIENDO
en cadena .. cuando salgo del tercero .. o sea ..el primero llama a un segundo y este segundo a un tercero ... saliendo simplemente de este tercero .. en cualquier instruccion que ponga luego de l showmodal .. me da error de access violation ..hasta en un simple Showmessage .. y todavia no he hecho ningun free..

bueno ..espero haya sido lo suficientemente claro ...y alguin pueda guiarme un poco...

GRACIAS ...y saludos
Ingel

[[Caral]]

Hola
No se si esta es la duda pero para llamar a un from yo uso:

procedure TFMainForm.BitBtn10Click(Sender: TObject);
begin
FUsuarios:=TFUsuarios.Create(self);
try
FUsuarios.ShowModal;
finally
FUsuarios.Free;
end;
end;

Esto en cada from osea el que llama a otro, asi cierro el from que no necesito y ahorro memoria.
Podria ser esto.
Espero te sirva de algo.
Saludos

[reina]

Hola compañero! la verdad que no entendi mucho..jaja pero como soy terca contesto igual
Bueno un consejo para guardar prolijidad deberias crear las ventanas cuando realmente las uses..y liberarlas cuando no las uses..
Tambien podrias proteger bloque despues de la creacion con un try... finally.
Si haces un showmodal a un form que ya esta liberado..te va a dar error..es eso lo que te pasa??
Espero te sirva mi comentario.
Salu2

LA PATRIA SERA LIBRE!

[reina]

Uhh Me Ganaron De Mano! Ja..coincido Con El Comentario Anterior..

[[Caral]]

Hola denuevo
Este es un simple codigo que llama a un reporte de compras por medio de un query.

If Reporte = 'ComprasXFecha' then
begin
ShortDateFormat := '#yyyy/mm/dd#';
try
QRComprasXCliente:=TQRComprasXCliente.Create(self);
QRComprasXCliente.ADOQuery1.SQL.Add(' WHERE CxPagar.TipoTransac="FA" ');
QRComprasXCliente.ADOQuery1.SQL.Add(' AND FechaTransac >= '+DateToStr(DTP1.Date)+' AND FechaTransac <= '+DateToStr(DTP2.Date));
QRComprasXCliente.ADOQuery1.SQL.Add(' ORDER BY CodProveedor, FechaTransac;');
QRComprasXCliente.ADOQuery1.Open;
ShortDateFormat := 'dd/mm/yyyy';
QRComprasXCliente.Titulo.text := 'Compras Realizadas por Fecha';
QRComprasXCliente.QRLblDesde.Caption := DateToStr(DTP1.Date);
QRComprasXCliente.QRLblHasta.Caption := DateToStr(DTP2.Date);
If RadioGroup1.ItemIndex = 0 then QRComprasXCliente.Print
else QRComprasXCliente.Preview;
finally
QRComprasXCliente.Free;
end;

Tal vez te sirva para completar tu enlace al qreport y no te de errores
Por lo menos a mi me sirve.
Saludos

[ContraVeneno]

solo como comentario apart; en la línea:

Código Delphi [-]
QRComprasXCliente.ADOQuery1.SQL.Add(' AND FechaTransac >= '+DateToStr(DTP1.Date)+' AND FechaTransac <= '+DateToStr(DTP2.Date));

creoq ue sería mejor:

Código Delphi [-]
QRComprasXCliente.ADOQuery1.SQL.Add(' AND FechaTransac between '+DateToStr(DTP1.Date)+' AND '+DateToStr(DTP2.Date)+'''');

de esta forma no tienes que validar si una fecha es mayor a la otra o no

[[Caral]]

Gracias Contra veneno
Tu comentario lo tamare en cuenta, esto tambien servira para que el que hizo la pregunta mejore su codigo al igual que yo, para esto esta el foro, Aprender.
Saludos

[ContraVeneno]

A mi me pareció intrigante que tuvieras que crear un SP para generar una tabla para luego asignarlo a un Qreport.

Para mi lo más fácil hubiera sido utilizar un TQuery y asignarlo al QReport