Duda sobre creación de clase (Free y Destroy)

[delphi.com.ar]

Empezado por adlfv

Pero y qué pasa con los objetos asociados a la lista? Se liberan también?

Empezado por Ayuda de Delphi

The TStrings object does not own the objects in the Objects array. Objects added to the Objects array still exist even if the TStrings object is destroyed. They must be explicitly destroyed by the application.

Empezado por adlfv

Tal vez debería redefinir el método Clear?

¿Oíste hablar de colecciones?

[roman]

Empezado por adlfv

Lista.Clear;
// Aqui debo liberar FLista, incluido los objetos que ésta posea
// Sé que debo usar Free, pero si Free no lo he redefinido,
// Cómo se libera la lista realmente?

Yo creo que tú mismo te estás contestando. Antes de llamar a Lista.Clear simplemente recorre rodos sus elementos y libera los objetos:

Código Delphi [-]
for I := 0 to Lista.Count - 1 do
  Lista.Objects[i].Free;

Lista.cLear;

// Saludos

[[Al González]]

¡Hola a todos!

Empezado por delphi.com.ar

¿Oíste hablar de colecciones?

En este caso tal vez sea mejor utilizar TObjectList en lugar de TCollection como clase padre de THabitaciones, por lo que comenta Román en este otro mensaje, aparentemente del mismo proyecto planteado por Adlfv.

Cuando un objeto TObjectList tiene su propiedad OwnsObjects en True, los objetos de la lista son destruidos (liberados) automáticamente cuando éstos son eliminados de la lista y cuando el objeto lista contenedor es destruido.

Espero esto sea de utilidad, seguimos en contacto.

Al González.