Instancias Multiples

[engranaje]

Te lo ha explicado ecfisa en su post:

Si claro, estás declarando una variable local (Formulario) de tipo TForm2 y la evaluas sin haberla instanciado previamente:

Debes revisar el ambito de una variable, si declaras una variable "Formulario" del tipo TForm2 dentro de un procedimiento o función, esa variable se destruye al finalizar ese procedimiento. Es decir si llama 6 veces distitnas al procedimiento estas utilizando 6 variables distintas que durante su corta existencia tuvieron el mismo nombre... Es mas si no liberaras "formulario" dentro del procedimiento, la variable se perdería igualmente aunque esas instancias a forms seguirian existiendo y de hecho si no cerrararas los forms, seguirían abiertos y podrias trabajar con ellos pero no habría ni rastro de esa variable "formulario" local a la que asignaste la instancia al crearla.

En el segundo caso que propones creas unas instancia de una clase y se la asignas a una variable privada del form. Esa variable no dejara de existir mientras exista el form1, por lo que si le asignas una vez una instancia seguirá asignada mientras no se destruya el form1.

No sé si habre ayudado algo, la verdad es que la explicación que te había dado ecfisa me parece mucho mas clara que lo que acabo de escribir yo.

[Neeruu]

Pero porque si la declaro dentro de un evento, al momento de evaluarla "llega con basura" (por llamarlo de alguna forma.) y si la declaro como variable de Form1, llega con nil???

[ecfisa]

Hola Neeruu.

Pero porque si la declaro dentro de un evento, al momento de evaluarla "llega con basura" (por llamarlo de alguna forma.)

No llega, está recién declarada. "Formulario" es un puntero no inicializado y por tanto puede apuntar a cualquier cosa (normalmente "basura").

y si la declaro como variable de Form1, llega con nil???

Por que en la creación de la instancia de TForm1 (Form1 en este caso) se encarga de inicializarla.

Saludos

[Neeruu]

Gracias.... Gracias y mas Gracias....

Ahora si quedo clarito porque la diferencia....

Con esto voy a mejorar las instancias de mis clases.... Supongo que renegare un poco con algunas cosas... pero ahora entiendo porque....


Saluda Atte Neeruu!!!

[Neeruu]

Empezado por engranaje

Respuesta #7, con referencia al código de Respuesta #6.

Debes revisar el ámbito de una variable, si declaras una variable "Formulario" del tipo TForm2 dentro de un procedimiento o función, esa variable se destruye al finalizar ese procedimiento. Es decir si llama 6 veces distintas al procedimiento estas utilizando 6 variables distintas que durante su corta existencia tuvieron el mismo nombre... Es mas si no liberaras "formulario" dentro del procedimiento, la variable se perdería igualmente aunque esas instancias a forms seguirían existiendo y de hecho si no cerraras los forms, seguirían abiertos y podrías trabajar con ellos pero no habría ni rastro de esa variable "formulario" local a la que asignaste la instancia al crearla.

Re leyendo este post, me surgió una duda:
Cual seria la forma de que en el momento que se destruye la variable, se libere la instancia del Form?

[[AgustinOrtu]]

Código Delphi [-]
VariableForm.Free;

Una variable simplemente es una dirección de memoria a la que para identificarla se le asigna un nombre, etiqueta o alias. El alcance de esta está definido según donde se la declare, en inglés le llaman scope, que vendría a ser la porción de código en donde se conoce ésa variable. Si la declaras en un procedimiento no podes usarla fuera de este, si la declaras en una unidad la podes usar en cualquier procedimiento dentro de la unidad, y sí además es pública también podrían usarla otras unidades que conozcan a la unidad en cuestión.

Cuando llamas a un constructor, en esa porción de memoria se crea tu objeto formulario, es decir se ocupa la memoria. Delphi no usa recolector de basura así que es responsabilidad de quien crea un objeto liberarlo. Para facilitar esto hay objetos a los que se les puede asignar otro el cual es el encargado de liberarlos cuando el "padre" es liberado. Es el caso de los descendientes de TComponent por ejemplo

En realidad el compañero anterior creo que está equivocado, la variable no se destruye al finalizar el proceso, solamente se pierde la referencia (queda fuera de alcance) y por eso la instancia del formulario queda abierta y no puede liberarse la memoria

Este problema es conocido como memory leaks o fugas de memoria

Como el formulario del código del menaje esta creado pasando como parámetro "Self" (el formulario principal) quiere decir que se asigna como encargado de liberar el formulario cuando Self es liberado, así que aunque se pierda las referencias en este caso no habría fugas

[Neeruu]

Puede que tengas razón AgustinOrtu, si ejecuto este código pierdo acceso al formulario, pero el formulario sigue estando...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Formulario: TForm2; {<---- Declarada Localmente dentro del Evento}
begin
  Formulario := TForm2.Create(Self);
  Formulario.Show;
end;

[[AgustinOrtu]]

Exacto, pero hace la prueba de cerrar todo y agrega esta línea en el .dpr o en el evento OnCreate del formulario principal

Código Delphi [-]
ReportMemoryLeaksOnShutdown := True

Crea y cerra varias veces el formulario hijo y después cerra el primicial. Si te sale un error es que hubo fuga de memoria y te va a indicar que objeto y que cantidad no fue liberada, sino sale ningún error está todo bien

[Neeruu]

Interesante....