4 respuestas en este tema

[FGarcia]

Aqui de nuevo. Siempre he usado este codigo para crear un formulario en run time:

delphi

with TfmBoleto.Create(Application) do
      try
        showmodal;
      finally
        free;
      end;

Ahora resulta que la primera vez que lo ejecuto funciona correctamente, pero la segunda vez que lo intento me aparece un mensaje de error,

---------------------------
Controlv
---------------------------
Access violation at address 006D0075. Read of address 006D0075.
---------------------------
Aceptar 
---------------------------

sigo el debug hasta que el formulario se muestra (un panel, dos botones y un scrollBox) cierro la ventana y lo vuelvo a intentar y se ejecuta correctamente! ¿Alguna idea?

[Caral]

Hola
Y no as probado destroid en vez de free?
Saludos

[TiammatMX]

Aqui de nuevo. Siempre he usado este codigo para crear un formulario en run time:

delphi

with TfmBoleto.Create(Application) do
      try
        showmodal;
      finally
        free;
      end;

Ahora resulta que la primera vez que lo ejecuto funciona correctamente, pero la segunda vez que lo intento me aparece un mensaje de error,

---------------------------
Controlv
---------------------------
Access violation at address 006D0075. Read of address 006D0075.
---------------------------
Aceptar 
---------------------------

sigo el debug hasta que el formulario se muestra (un panel, dos botones y un scrollBox) cierro la ventana y lo vuelvo a intentar y se ejecuta correctamente! ¿Alguna idea?

Sugerencia:

Método 1.- FreeAndNIL en lugar de Free.
Método 2.- Pantalla := NIL.

No tiene qué ver con la versión de Delphi (o bueno, no mucho) sino con el nuevo manejo de objetos implementados en Delphi 2010. El lenguaje es excelente, pero ahora es más quisquilloso para algunos procesos.

[Caral]

Hola
Hace tiempo hice este ejemplo, acabo de hacer que cree un form, esto no lo hacia.
Tal vez te sirva
Saludos

Archivos adjuntos

•  1361_395130c50010eba855559c99c624edd6dba61807.zip   6,27KB   3 descargas

[FGarcia]

Bueno probe tu ejemplo Carlos y me funcionaba muy bien, asi que me fui al OnShow del formulario que se estaba creando y ahi encontre el problema. Tengo un proceso ahi de un Reporte con Rave y ese era el que creaba problemas, ya que la primera vez se ejecutaba pero en la segunda vez no, asi que revisando le di solucion a ese proceso y listo.

No tengo Delphi 7, mi instalador se daño y para no "volver atras" no lo he querido "reparar" pero no recuerdo si en D7 FreeAndNil pide un objeto o es simplemente FreeAnNil.

delphi

with TfmBoleto.Create(Application) do
      try
        showmodal;
      finally
        free;
      end;

delphi

with TfmBoleto.Create(Application) do
      try
        showmodal;
      finally
        freeandnil;
      end;

delphi

with TfmBoleto.Create(Application) do
      try
        showmodal;
      finally
        freeandnil("Obj"); //Asi lo pide D2010
      end;