Invalid Pointer Operation con Free y Assigned

adlfv · #1 06-10-2005

Hola a todos, yo creo que tengo el mismo error... y me estoy volviendo LOOOOCO y no logro resolverlo. Seguramente sea una tontería, pero es que NO LO LOGRO.

Explico mi caso.

Estoy haciendo el modelo de negocios de un hotel, el cual explico brevemente:
- Clase THabitaciones (hereda de TComponent), que es básicamente una lista con componentes THabitacion (o TBaseHabitacion).
- Clase THabitacion (hereda de TComponent), representa una habitación como tal. Está formada basicamente por dos partes, Un componente GUI: TBaseGUI y un objeto Info: TBaseInfo.
- Clase TBaseGUI (hereda de TComponent), es el tope de una jerarquia para la representación gráfica de las habitaciones.
- Clase TBaseInfo (hereda de TObject), es el tope de una jerarquia para la información de las habitaciones. Va variando según el tipo en tiempo de ejecución.

En el form principal hago lo siguiente en el evento OnClose:

Código:

  
   ...
   TiposHabitaciones.Free;
   Habitaciones.Free;

La idea es:
1.- Destruir Habitaciones: THabitaciones (cuando creo una Habitacion: THabitacion hereda de TComponent y el Owner es Habitaciones, con lo cual automáticamente se liberan todas las THabitacion cuyo Owner sea Habitaciones).
2.- Cuando se destruye una Habitacion: THabitacion, básicamente tengo que destruir la Info pues hereda de TBaseInfo que a su vez hereda de TObject. GUI no hay que destruirlo, pues se autodestruye porque tiene como Owner la Habitacion
3.- Cuando se destruye un GUI: TGUIHab, debo liberar el bitmap.

A continuación pondré los métodos de destrucción de las clases en ese orden:

1.- Destrucción de Habitaciones: (en realidad no hago nada salvo Lista.Clear y Lista.Free).

Código:

   Debug('THabitaciones.Destroy: ComponentCount:' + IntToStr(ComponentCount));
   Debug('THabitaciones.Destroy: FLista.Count:' + IntToStr(FLista.Count));
   
   for i := 0 to FLista.Count -1 do
   begin
     H := ItemsByPos[i];
     if Assigned(H) then
     begin
   	if H.Owner <> nil then
   	  Debug(H.Caption + ' Owned by: ' + TComponent(H.Owner).Name);
   //	H.FreeInfo;
   //	H.FreeGUI;
   //	H.Free;
     end;
   //  Lista.Objects[i].Free;
   end;
   
   Lista.Clear;
   Debug('THabitaciones.Destroy: ComponentCount:' + IntToStr(ComponentCount));
   
   Lista.Free;
   Debug('La lista interna ha sido liberada');
   inherited Destroy;

2.- Destrucción de Habitacion: Tengo qeu destruir sólo la Info (pero está comentado, pues sospecho que me da error en el Assigned(Info)) pues el GUI tiene como Owner la Habitación y se destruirá solo.

Código:

   Debug(Caption + ': THabitacion.Destroy: ComponentCount:' + IntToStr(ComponentCount));
   
   if Assigned(Info) then
   begin
     Debug(Caption + ': TBaseHab.Destroy - assignado. Tipo:' + Info.ClassName);
   //  FreeInfo;
   //  FreeGUI;
   end
   else
     Debug(Caption + ': TBaseHab.Destroy - no assignado');
   
   Debug(Caption + ': THabitacion.Destroy: ComponentCount:' + IntToStr(ComponentCount));
   inherited Destroy

3.- Destrucción de GUI.

Código:

  
   if Assigned(Owner) then
   begin
     Debug('Liberando bitmap de GUI de la habitacion: ' + TComponent(Owner).Name);
     FreeResources;
   end;
   
   Debug('TGUIHabIcon: ComponentCount=' + IntToStr(ComponentCount));
   
   //TODO: LLamar al heredado?

La destrucción de Info no hace nada salvo llamar al heredado.

Al cerrar la aplicación obtengo un precioso mensaje