FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Liberar Objetos ¿Cómo resolver esto?
La creación de objetos se realiza sin problemas, en particular se trata de un objeto ”Casa” que contiene un array dinámico de objetos “Habitacion”.
Pero el problema es a la hora de liberarlos, dando error de violación de memoria. ¿Qué estoy haciendo mal? ¿Cómo debería hacerlo? Si alguien lo consigue por favor decidme cómo! Os pongo el código a continuación. Gracias compañeros. ... Type THabitacion = class (TObject) Descripcion: string; end; TCasa = class (TObject) Habitacion: array of THabitacion; end; var Casa: TCasa; implementation procedure TForm1.BotonCrearClick (Sender: TObject); begin Casa:= TCasa.Create; SetLength(Casa.Habitacion,1); Casa.Habitacion[1]:=THabitacion.Create; Casa.Habitacion[1].Descripcion:='Dormitorio'; end; procedure TForm1.BotonLiberarrClick (Sender: TObject); begin Casa.Habitacion[1].Free; Finalize(Casa.Habitacion); Casa.Free; end; ... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Olvidar liberar punteros, objetos, etc. | walito | Varios | 3 | 06-01-2008 01:51:47 |
Liberar Objetos II | OscarG | OOP | 12 | 11-10-2005 10:13:55 |
liberar objetos | OscarG | OOP | 13 | 06-10-2005 18:49:18 |
Liberar objetos que se han añadido a un TList | neon | OOP | 3 | 07-10-2004 18:47:54 |
Liberar un matriz de objetos | soul6301 | Varios | 8 | 04-08-2004 09:19:53 |
|