Como crear clases correctamente?
Bueno..
No tengo mucha idea de usar clases y he intentado crear algunas. El problema es que cuando asigno varias variables de la misma clase si creo y destruyo una de las dos variables me cargo los datos de la otra. No se porque. Adjunto la unidad que he creado a ver si algun sabio de los de aqui me ayuda a ver que es lo que esta mal. Y como hacerlo mejor. Un saludo.. Código:
unit pathmovil; Código:
unit sprites; ¿Podria ser porque en el programa principal declaro como privada la estructura ListaSprites? Código:
type |
Yo veo un problema aqui:
Si secuencia[count] es nil, estás creando un nuevo objeto en memoria. Posteriormente haces: Secuencia[count] := Misec; eso quiere decir que el Objeto que creaste en memoria se pierde, es decir, estás creando memoria que nunca se podrá liberar. En principio hay dos soluciones que depende de tu criterio: - Copiar los datos de Misec al nuevo objeto recien creado (secuencia[Count].Nombre := Misec.Nombre) - No crear el objeto en memoria y dejar sólo la línea Secuencia[count] := Misec. Pero esto puede tener problemas si más tarde liberas el objeto... por ejemplo, el siguiente código dará problemas:
Otra variación es usar un TObjectList en lugar de arrays (busca en el foro por Tobjectlist) |
Ya intente lo de los TObjectList pero se me queda grande, ya que no controlo mucho lo de las clases y me daba Acces violation por muchos sitios. Ya pergunte sobre eso en foro varios.
LO que puse Código:
if Secuencia[Count]=nil then Cita:
ListaSprites[SelectedSprite].Secuencia[x]:=TSecuencia.Create; TmpSec:=TSecuencia.Create; ..relleno datos en tmpSec... ListaSprites[SelectedSprite].Secuencia[x].AddSec(TmpSec); TmpSec.Free; // o Destroy??? ¿Esto es correcto? antes de usar la funcion AddSec El poner todo el codigo es para saber si he hecho alguna cosa que este mal puesta de base. PD: Ya se que hacer arrays y clases no parace muy ortodoxo. Ya me gustaria saber Delphi como algunos. pero es lo que hay... PD 2:La firma me encanta: Es lo que muchas veces suele pasar en la vida real. |
Unos detallitos:
El código anterior define una referencia a un objeto. No es un objeto, sino una referencia. El objeto no existe hasta que lo creas. Con esto estás creando un objeto, no "asignando el constructor de la variable".:rolleyes: Ahora "Variable" hace referencia al objeto recién creado. Con esto Variable1 y Variable2 hacen referencia al mismo objeto. No estás clonando (copiando) el objeto. Al ser referencias al mismo objeto, ejecutar "Variable2.Trabaja" es exactamente lo mismo que ejecutar "Variable1.Trabaja". Recuerda lo que he dicho al principio: Son referencias a objetos, no objetos. Si hemos dicho que Variable1 y Variable2 hacen referencia al mismo objeto, resulta lógico pensar que tras ejecutar "Variable1.Free" tampoco podemos usar Variable2, ya que el objeto al que referencia no existe, por lo que resulta en una violación de acceso. Por cierto: nunca hay que llamar al destructor (Destroy). Para destruir un objeto hay que utilizar "Free". En el código anterior, definimos una referencia a un objeto y luego lo creamos, pero no lo destruimos. Al terminar el procedimiento, la refencia al objeto es eliminada, pero el objeto sigue existiendo. Por eso podemos hacer cosas como la siguiente:
|
Ahhh...
Claro, mi intencion era clonar el objeto para usarlo de almacenamiento temporal y al liberarlo me pasaba lo que ha explicado Nuño. ¿Y si quiero clonarlo , como se debería hacer? hay algo como Copy...? PD: Algo hemos avanzado con los conceptos de objetos... Lo reconozco he usado algun Destroy por ahi :o PD2: Muy buena explicacion.. concluyendo debo expresar mi nivel de Delphi con una variable Double; var Nivel:Double; .. Nivel:=0.001;:D:D:D |
Cita:
Sirva como ejemplo la clase "TStrings". Puede clonarse un objeto de esta clase asignando la propiedad Text, es decir:
Ahora los dos objetos contienen una copia idéntica de las cadenas, pero cada uno es independiente. Sin embargo este sistema sólo sirve para esta clase y sus derivadas (por ejemplo, TStringList). |
Ñuño, recuerda tambien:
Para clonar objetos está el método Assign, pero pertenece a TPersistent y puede que incluya muchas cosas que no quieras. Además debes modificar el método Assign en tu clase para que sea 100 % operativo, total, como he soltado un rollo ahí vá lo que deberías hacer: Y ahora si podemos usar un código como...
Esto que has visto es realmente lo que hace el método TPersistent.Assign(), pero es más lioso de entender por la herencia (la primera vez que vi el código de Assign no entendí nada de nada). Edito: como me quedé intrigado hice la prueba, Delphi si clona los registros con el operador ":=" obtenemos el mensaje "a.nombre es juan b.nombre es pepe" |
Muchas gracias por las lecciones magistrales.
A ver si con toda esa ayuda puedo terminar mi programa.. Un saludo. Una ultima pregunta: ¿Si libero ListaSprites, se libera la memoria de los objetos Secuencia que estan en ListaSprites? Código:
for i:=1 TO MAXBOTS do Código:
type |
Cita:
Por cierto, gracias por la explicación acerca de "Assign". :) Cita:
|
Una regla que es bueno recordar siempre: lo que se crea por código, se debe destruir por código.
|
Cita:
El tema viene por esto:
aquí estamos creando nosotros la ventana, pero le decimos que Delphi la destruya automáticamente al terminar la aplicación; nosotros no tenemos que destruirla. Caso bien distinto a: donde nosotros lo creamos y nadie se hará cargo de su destrucción. Nosotros debemos destruirla en el OnClose o llamar a form2.Free |
La franja horaria es GMT +2. Ahora son las 17:29:34. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi