![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
![]() 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; ... |
|
|
![]() |
||||
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 |
![]() |
|