FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Destrucción de componentes dinámicos
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: Código:
// 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í: Código:
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; 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.
__________________
Rafita. |
#2
|
||||
|
||||
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 |
#3
|
||||
|
||||
Una aclaración al punto 4:
De la ayuda de Delphi: Cita:
// Saludos |
#4
|
|||
|
|||
Cita:
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. Cita:
Respecto a la aclaración del punto 4, deduzco que aunque no sea necesario ponerlo, tampoco molesta. Muchas gracias Roman por interes. Un saludo.
__________________
Rafita. |
#5
|
||||
|
||||
Cita:
"Temas relacionados con la programación orientada a objetos y componentes." Cita:
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. Cita:
// Saludos |
#6
|
|||
|
|||
Cita:
Cita:
Saludos.
__________________
Rafita. |
|
|
|