Como crear clases correctamente?

[alquimista]

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

PD2: Muy buena explicacion.. concluyendo debo expresar mi nivel de Delphi
con una variable Double; var Nivelouble; .. Nivel:=0.001;

[Ñuño Martínez]

Empezado por alquimista

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...?

Pues hasta donde yo sé, no hay un método para clonar objetos. Cada clase debe definir su propio método de copia. Si no tiene, se puede intentar asignando a través de sus propiedades.

Sirva como ejemplo la clase "TStrings". Puede clonarse un objeto de esta clase asignando la propiedad Text, es decir:

Código Delphi [-]
ObjetoStringList.Text := ObjetoOrigen.Text;

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).

[[Lepe]]

Ñuño, recuerda tambien:

Código Delphi [-]
var a, b:TStringList;
begin
  a := TStringlist.create;
  a.add('uno'); 
  a.add('dos');
  b:= TStringlist.create;
  b.Assign(a);

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:

Código Delphi [-]
procedure TSecuencia.Assign(Avalue:TSecuencia);
begin
 Numero := Avalue.Numero
    Nombre  := Avalue..Nombre;
    Descripcion := Avalue.Descripcion;
   // o sea copiar a la instancia actual, la que se pasa por parámetro.
  // realmente no clona objetos, solo copia los valores de uno a otro

  Recorr.Origen := Avalue.Recorr.Origen
  SetLength(Recorr.tradmov, Avalue.Recorr.Count);
  for i:= 0 to Avalue.Recorr.Count -1 do // Count no debería ser privada 
     Recorr.tradmov[i] := Avalue.Recorr.tradmov[i]; 
  // hace años que no uso "records", delphi los copiaba ¿verdad?
  // sino un simple test y salimos de dudas.

Y ahora si podemos usar un código como...

Código Delphi [-]
var a, b: TSecuencia;
begin
  a := TSecuencia.create;
  b := TSecuencia.Create;
  a.Nombre := 'pepe';
  // relleanar todos los valores
  b.Assign(a);
  "b" será un clon de "a"

//queda por liberar y eso...

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 ":="

Código Delphi [-]
type  tu = record
   nombre :string;
   end  ;

var   a,b:tu;
procedure TForm1.FormCreate(Sender: TObject);
begin
  a.nombre := 'pepe';
  b:= a;
  a.nombre := 'juan';
  ShowMessage('a.nombre es ' a.nombre + ' b.nombre es '+ b.nombre)
end;

obtenemos el mensaje "a.nombre es juan b.nombre es pepe"

[alquimista]

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?

for i:=1 TO MAXBOTS do
   if ListaSprites[i]<>nil then
      ListaSprites[i].free;

type
  TSprite = class
  public
    x, y, xAnterior, yAnterior: Integer;
    ColorTransparente: TColor;
    Imagen, Mascara,buffer: TImage;
    Seleccion: integer;
    deltx,delty:integer;
    Orientacion:TOrientacion;
    Secuencia: Array [1..MAXSEQ] of TSecuencia;

PD:A ver si puedo incrementar mi variable nivel un poco mas: nivel:=inc(nivel);

[Ñuño Martínez]

Empezado por Lepe

Edito:
como me quedé intrigado hice la prueba, Delphi si clona los registros con el operador ":="

Claro: porque los registros (RECORD) no se referencian como los objetos. Esa es una de las diferencias entre registros y clases.

Por cierto, gracias por la explicación acerca de "Assign".

Empezado por alquimista

Una ultima pregunta:
¿Si libero ListaSprites, se libera la memoria de los objetos Secuencia que estan en ListaSprites?

Código Delphi [-]
for i:=1 TO MAXBOTS do
   if ListaSprites[i]<>nil then
      ListaSprites[i].free;

Exacto: tienes que liberar cada sprite por separado.

[DriverOp]

Una regla que es bueno recordar siempre: lo que se crea por código, se debe destruir por código.

[[Lepe]]

Empezado por DriverOp

Una regla que es bueno recordar siempre: lo que se crea por código, se debe destruir por código.

Yo más bien diría: "Lo que delphi crea, delphi lo destruye, lo que creo yo, lo destruyo yo".

El tema viene por esto:

Código Delphi [-]
form2 := Application.CreateForm(TForm2, Form2);

// o bien

form2 := TForm2.Create(Application);

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:

Código Delphi [-]
form2 := TForm2.Create(nil);

donde nosotros lo creamos y nadie se hará cargo de su destrucción. Nosotros debemos destruirla en el OnClose o llamar a form2.Free