Liberar Objetos ¿Cómo resolver esto?

[gerardus]

Hola Josuk,

Tienes la opción de usar listas de objetos en vez de arrays:

Código Delphi [-]
  uses contnrs; // requerido por TObjectList

  TCasa = class (TObject)
  private
    FHabitaciones: TObjectlist;
    function GetHabitaciones(Index: integer): Thabitacion;
    function GetNumerohabitaciones: integer;
  public
    constructor create;
    destructor destroy override;
    function AddHabitacion : THabitacion;
    property Habitaciones[Index: integer]: Thabitacion read GetHabitaciones;
    property Numerohabitaciones: integer read GetNumerohabitaciones;
  end;



function TCasa.AddHabitacion: THabitacion;
begin
  Result := THabitacion.Create;
  FHabitaciones.Add(Result);
end;

constructor TCasa.create;
begin
  inherited Create;
  FHabitaciones := TObjectList.Create(True); // True destruye los objetos de la lista al ser destruido
end;

destructor TCasa.destroy;
begin
  FHabitaciones.Free;
  inherited;
end;

function TCasa.GetHabitaciones(Index: integer): Thabitacion;
begin
  Result := THabitacion(FHabitaciones[Index]);
end;

function TCasa.getNumerohabitaciones: integer;
begin
  Result := FHabitaciones.Count;
end;

Cordialmente,

Gerard.