Error de memoria al llamar otra form

[dmagui]

Buenos dias:

Tengo un problema y es la primera vez que me ocurre.

Desde mi form26 estoy colocando un codigo para que se active los ibdataset de mi form27 despues de hacer un commit y me saca un error de memoria.

Código Delphi [-]
 implementation
uses unit2, unit27, unit31;

esto lo tengo en mi form26

y lo unico que hago es:

Código Delphi [-]
 form27.ibdataset1.active:=True; 
form27.ibdataset2.active:=True;
form27.ibdataset3.active:=True;

el error que me muestra dice:

Acces violation at addres 004cf8f in module 'Project1.exe'. Read of addres 000002f0.

Por que me genera este error???, gracias por sus respuestas.

[dec]

Hola,

¿Es posible que "Form27" no esté creado cuando tratas de acceder al mismo?

[Neftali [Germán.Estévez]]

Normalmente ese error es porque estás accediendo a un objeto que todavía no ha sido creado.
¿Form27 ya está creado?

Puedes hacer una simple comprobación:

Código Delphi [-]
 // no creado?
 if not Assigned(Form27) then begin
   --> no creado
 end;

[dmagui]

Pero si yo creo desde la form27 a la form26 es decir la form27 es padre de la 26

Código Delphi [-]
 procedure TForm27.DBGrid1CellClick(Column: TColumn); 
var
varform26 : TForm26;
begin
if ((Column.FieldName = 'CODIGO_COMP') or (column.FieldName = 'NOMBRE_COMP')) then
begin
var1 := IBDataset1.FindField('CODIGO_COMP').AsString;
label1.Caption := var1;
varform26 := Tform26.create(self);
try
varform26.Show;
except
varform26.free;
end;
end;
dbgrid1.SelectedIndex:=0;
end;

[dec]

Hola,

Sin fijarme demasiado en el código que acabas de escribir, lo cierto es que lo único que se me ocurre decir es que en tu primer mensaje hablabas de que el error se producía al querer acceder al "form27"... no al "form26", que ya se ve que creas y luego muestras desde el "form27"... ¿qué me he perdido?

[roman]

Empezado por dmagui

Pero si yo creo desde la form27 a la form26 es decir la form27 es padre de la 26

Pero esto no es garante de nada. Recuerda que de una clase puede haber más de una instancia y tienes que asegurarte que form26 se refiere a la misma instancia de form27 que la creó. Posiblemente form27, en el código de form26, sea la variable global que declara automáticamente Delphi y debes verificar si es con esa variable con la que creas la instancia de form27.

Por eso no es bueno usar variables globales. Sobre todo, en general, hacer referencias a variables globales desde el código de una clase.

// Saludos

[dmagui]

Es que desde la form27 creo la form26, cuando estoy en la form26 y deseo activar los dataset de la form27 me muestra el error de memoria.

[Neftali [Germán.Estévez]]

Cuidado con éste código:

Código Delphi [-]
 try  
   varform26.Show;
 except  
   varform26.free;
 end;

Justo después de hacer el Show, se libera, puesto que la ejecución no se detiene. Deberías probar con ShowModal (en lugar de Show) o hacer la liberación (Free) en otro lugar.

[roman]

Revisa lo que te dije arriba. De entrada por lo menos pon un breakpoint en la primera línea que hace uso de form27 y verifica que éste no sea nil.

// Saludos

[vtdeleon]

Empezado por Neftali

Justo después de hacer el Show, se libera, puesto que la ejecución no se detiene. Deberías probar con ShowModal (en lugar de Show) o hacer la liberación (Free) en otro lugar.

Estás seguro? puesto que se espera una excepcion. Si al crear el form26 no ocurre una exception no entrará al Exception.

[dec]

Hola,

Empezado por Neftali

Cuidado con este código:

Código Delphi [-]
 try
   varform26.Show;
 except
   varform26.free;
 end;

Justo después de hacer el Show, se libera, puesto que la ejecución no se detiene. (...)

Eso pensé yo, no sé porqué, puesto que no se ejecutará el código de la cláusula "except" sino en caso de excepción, precisamente. ¿No es?

[vtdeleon]

Saludos

Creo entender el caso de dmagui.

Form26 es un formulario hijo del Form27 el cual es Padre (óbvio) y desde el formulario tratas de activar los dataset que se encuetnra en el formulario padre.

Particularmente probaria que valores o parametros habras cambiando en esos componentes. Trata de poner otro dataset con una consulta simple.

[Neftali [Germán.Estévez]]

Empezado por vtdeleon

Estás seguro? puesto que se espera una excepcion. Si al crear el form26 no ocurre una exception no entrará al Exception.

Tienes razón, no se libera sino se produce una excepción. La vista me jugó una mala pasada...
Cambié (en mi mente) el except por un finally.

[dec]

Hola,

Empezado por Neftali

Cambié (en mi mente) el except por un finally.

Pues yo ni eso: al principio leí el "Show" y luego el "Free" y me dije, ¡aquí está el tema!

[vtdeleon]

Saludos

Creo que faltan par de anteojos

[dmagui]

Hola, pues gracias por todas las respuestas y ya me salio todito, gracias por todo

[roman]

Sí, bueno... ¿Y podrías decirnos cómo fue que lo resolviste?

// Saludos

[dmagui]

no llamaba a la form26 con show sino con showmodal y actualice todos los dataset despues del showmodal.

[dmagui]

Código Delphi [-]
 try 
varform26.ShowModal;
DBEdit1.Text:=unit27.varedit;
IBDataSet1.Active:=True;
IBDataSet2.Active:=True;
IBTable1.Active:=True;
IBTable2.Active:=true;
IBDataSet3.Active:=True;
except
varform26.free;
end;