Duda sobre destrucción de objetos compuestos por otros objetos

[[Crandel]]

Te hago dos obeservaciones

1. Te falta el override del destructor, tiene que ser asi:

Código Delphi [-]
destructor Destroy; override;

2. Llama al inherited del destructor al final

Código Delphi [-]
destructor cMiClase.Destroy;
begin
  FreeAndNil(Obj);
  inherited Destroy;
end;

[[Crandel]]

Tercera observación , se que lo que pussite es un ejemplo sencillo, pero no es suele ser conveniete crear un objeto en en Create de una clase y destruirlo en un boton.

[noob]

Empezado por Crandel

Te hago dos obeservaciones

1. Te falta el override del destructor, tiene que ser asi:
Código Delphi [-]destructor Destroy; override;

Ahora sí que se ejecuta el método, ese era el gran fallo, pensaba que al igual que en el constructor no era necesario redefinir el método. Editado queda.

Empezado por Crandel

2. Llama al inherited del destructor al final

Código Delphi [-]destructor cMiClase.Destroy; begin FreeAndNil(Obj); inherited Destroy; end;

Gracias, he cometido otro fallo de principiante aquí . Lo he editado también.

Empezado por Crandel

Tercera observación , se que lo que pussite es un ejemplo sencillo, pero no es suele ser conveniete crear un objeto en en Create de una clase y destruirlo en un boton.

Efectivamente es un ejemplo pero sí que acostumbro a crear objetos nada más crearse la aplicación, ¿por qué no es conveniente? Por otro lado no acostumbro a destruir objetos pulsando botones.

Saludos.

[[Crandel]]

Empezado por noob

Gracias, he cometido otro fallo de principiante aquí . Lo he editado también.

Pues cometiste otro más . Sólo debias invertir en el Destroy y no en el contructor.

La idea es pedir que cree todo lo que necesita la clase base antes de que cree nuestras cosas; y al destruir, destruimos todas nuestras cosas antes que los elementos propios de la clase base.

Empezado por noob

Efectivamente es un ejemplo pero sí que acostumbro a crear objetos nada más crearse la aplicación, ¿por qué no es conveniente? Por otro lado no acostumbro a destruir objetos pulsando botones.

Justamente eso, si creas los objetos en el Create, destruilos cuando se destruye en el formulario y no en el evento un botón.

solo lo aclaraba por las dudas.

Aclaración del FreeAndNil, como se ve en el código de esta función que publico DarkMan, la unica accion agreda es la de asignar al puntero del objeto el valor nil. Por lo que no tiene sentido llamarlo cuando no es necesario, principalmente en el destroy, simplemente llama al metodo Free.

La función esta realmente definida para los casos en los que los objetos se crean dinamicamente y en un determinado momento necesitas diferenciar su estado. Entonces puesdes preguntar

Código Delphi [-]
if objeto <> nil then