Destrucción de componentes dinámicos

[rafita]

Muy buenas a todos.

Estaba haciendo pruebas con la creación dinámica de componentes y me surgen algunas dudas, sobre todo a la hora de eliminarlos de la memoria.
He estado buscando en este foro y, aunque he encontrado algunas cosas, no me termino de aclararme.

Básicamente veo dos posibilidades de crear los componenentes:

// Ejemplo 1.
var MiBoton : TButton;  // <-- Definido a nivel de formulario

procedure CrearBoton;   // <-- Creación y asignación a la variable previamente definida
begin
  MiBoton:=TButton.Create(Self);  MiBoton.Parent:=Self;                  // utilizando With sería más cómodo
  MiBoton.Caption:='Este es mi botón';
  MiBoton.Left:=25.........


// Ejemplo 2.
  for ind:=1 to 50 do
    with TButton.Create(Self) do  // <-- Creación sin asignarlo a ninguna variable
    begin
      Parent:=Self;
      Left:=PosX;  Top:=PosY;  Height:=36; Width:=140;
      Str(Ind:3,WInd); WInd:=StringReplace(WInd,' ','0',[rfReplaceAll]); 
      Name:='Boton'+WInd;
      Caption:=Format('Botón nº %d',[Ind])+#13'segunda línea';
      OnClick:=MostrarValor;  // asignación del evento

Según el Sr.Marco Cantú "El componente propietario (a menudo un formulario) se hace responsable de destruir todos los objetos que posee. En otras palabras, al liberar el formulario, éste libera todos sus componentes. Por ello, si se crea un componente y se le da un propietario, no hay que acordarse de destruirlo".

Dudas:

1. ¿Al crearlos con (Self) el propietario es el formulario dónde se crean?

2. En el primer ejemplo de creación puedo hacer un MiBoton.Destroy ¿es correcto o es mejor un MiBoton.DestroyAndNil?

3. En el segundo ejemplo al no tenerlo asignado a una variable ¿cómo lo destruyo?
He probado así:

for i:=1 to 50 do
   begin
     Str(Ind:3,WInd); WInd:=StringReplace(WInd,' ','0',[rfReplaceAll]);   
     Nombre:='Boton'+WInd;  // Nombre es un String
     DestruirBoton(Nombre);
   end;
procedure DestruirBoton(Sender : Tobject);
begin
  with Sender AS TButton do 
    Sender.Destroy;
end;

pero Nombre es un String ¿cómo hago para que referencie un objeto?

4. He visto el procedimiento DestroyComponents ¿con esto me evitaría destruirlos uno por uno? En mis pruebas, creo todos los componentes en OnCreate del formulario y con DestroyComponents en el OnClose, y no da error por muchas veces que lo ejecute.

5. ¿conoceís a alguién con más dudas o soy el peor?

Un saludo a tod@s.

[roman]

Primero que nada pedirte que selecciones adecuadamente el foro para los mensajes. Hay una tendencia a colocar en el foro Varios cualquier mensaje aun cuando haya algún foro específico para la duda. En este caso el foro OOP es el adecuado.

En cuanto a tus dudas:

1. Sí. Self es un pseudo-parámetro que Delphi pasa automáticamente a cualquier método de un objeto (no necesariamente formulario) y se refiere al objeto en sí.

2. ¿Existe el método DestroyAndNil? En lugar de Destroy usa Free. Este último se encarga de verificar que la referencia no sea nil y después llama a Destroy. En algunas ocasiones, al destruir un objeto requieres poner en nil la variable que hacía referencia a él para en un futuro poder detectar si el objeto ya está creado o no. En estos casos puedes usar el procedimiento (ojo, es procedimiento no método) FreeAndNil.

3. Para destruir un objeto (de hecho para hacer cualquier cosa con él por código) necesitas una referencia a él, una variable que 'apunte' al objeto. Si sólo conoces el nombre del control puedes usar el procedimiento FindComponent que te devuelve una referencia al objeto de un nombre dado. Pero, como ya tú mismo observaste esto es normalmente innecesario ya que el formulario o propietario de las componentes se encargará de su destrucción. Esto es posible porque cada componente (entiéndase descendiente de TComponent) mantiene una lista interna de todas las componentes que posee. Al momento de destruirse recorre la lista liberando todas las componentes. Para otro tipo de objetos que no posean el mecanismo interconstruido de TComponent y sus descendientes seguramente será adecuado mantener tú mismo una lista de tales objetos para poder destruirlos cuando les llegue su hora. Un TObjectList es particularmente adecuado para esto.

4. Lo mismo de antes. No debes preocuparte por DestroyComponents. Es el formulario quien se encarga de estos detalles.

5. Prefiero no contestar

// Saludos

[roman]

Una aclaración al punto 4:

De la ayuda de Delphi:

It is not necessary to call DestroyComponents directly. DestroyComponents is automatically called when the component is destroyed.

Como ves, no es tu labor destruir las componentes.

// Saludos

[rafita]

Empezado por roman

En este caso el foro OOP es el adecuado.

Efectivamente es OOP, pero de Programación Orientada a Objetos no conozco ni el nombre, así que para saber que esta hablando de eso.

Uno de mis libros más usado es la "Biblia de Delphi X" pero, para Biblia, los moderadores del foro. La respuesta a mi pregunta es un ejemplo de dominio del tema.

Me ha quedado perfectamente claro que para los componentes que yo me pueda crear, nunca será necesario preocuparse por destruirlos.

Empezado por roman

5. Prefiero no contestar

Gracias por ser tan benevolente.

Respecto a la aclaración del punto 4, deduzco que aunque no sea necesario ponerlo, tampoco molesta.

Muchas gracias Roman por interes. Un saludo.

[roman]

Empezado por rafita

Efectivamente es OOP, pero de Programación Orientada a Objetos no conozco ni el nombre, así que para saber que esta hablando de eso.

Descripción del foro que aparece en el listado:

"Temas relacionados con la programación orientada a objetos y componentes."

Empezado por rafita

Me ha quedado perfectamente claro que para los componentes que yo me pueda crear, nunca será necesario preocuparse por destruirlos.

¡Ojo! Recuerda que esto será cierto siempre y cuando la componente tenga algún propietario.

En otros contextos puedes requerir destruir las componente tú mismo. Si por ejemplo creas una clase que no descienda de TComponent y dentro de ella creas componentes entonces deberás destruirlos tú mismo.

Empezado por rafita

Respecto a la aclaración del punto 4, deduzco que aunque no sea necesario ponerlo, tampoco molesta.

Pero sería carente de sentido. Además no pongo mi mano en el fuego por que sea innocuo. Nadie mejor que TComponent sabrá el moemnto exacto de hacer la destrucción.

// Saludos

[rafita]

Empezado por roman

"Temas relacionados con la programación orientada a objetos y componentes."

Prometo aprender a leer.

Empezado por roman

Pero sería carente de sentido. Además no pongo mi mano en el fuego por que sea innocuo. Nadie mejor que TComponent sabrá el moemnto exacto de hacer la destrucción.

Supongo que en Borland programan mejor que yo, y que en el momento de destruir el componente no dará error si yo lo he destruido antes. Pero en cualquier caso, acepto tu consejo y no lo utilizaré.

Saludos.