¿Qué diferencia hay entre copiar y clonar objetos?

[noob]

Hola,

Lo he resuelto.

roman, he visto una forma de clonar objetos en Delphi. Neftali, pongo un ejemplo de todo lo que he hecho.

Por ejemplo, tengo un objeto 'myObject' que quiero mantener en el atributo 'FObject' de otro objeto, pero quiero que mantenga su valor original aunque el objeto 'myObject' cambie en un futuro. Para ello, no me queda otra que clonar el objeto. Pongo el código que he utilizado:

Código Delphi [-]
function cMyClass.Clone: cMyClass;
begin
  Result := cMyClass.Create;
end;

Luego, quiero que ese objeto clonado tenga los mismos valores que el objeto 'myObject', por ello, hago una copia:

Código Delphi [-]
procedure cMyClass.Copy(obj: cMyClass);
begin
 obj.Attribute_1 := FAttribute_1;
 obj.Attribute_2 := FAttribute_2;
 ...
 obj.Attribute_n := FAttribute_n; // Se copian los atributos del 1 hasta el n
end;

El uso desde una clase externa a 'cMyClass' sería así:

Código Delphi [-]
...
if Assigned(FObject) then
  FObject.Destroy; // Si el atributo 'FObject' apunta a algo distinto de nil 
// entonces liberamos memoria. Es por si llamamos más de una vez a todo este código.
FObject := myObject.Clone; // 'myObject' tiene información que queremos 
// mantener en el atributo 'FObject' de la clase en la que nos encontramos. 
// Aunque 'myObject' cambie en un futuro no queremos que los cambios se reflejen en 'FObject'
myObject.Copy(FObject); // Se copia toda la información de 'myObject' en 'FObject'
...

Funciona como esperaba, espero que se entienda y le sirva a alguien.

Saludos.

[roman]

Bueno, lo que estás haciendo es similar a lo que te comenté del AssignTo del objeto TPersitent. Realmente el método Clone sale sobrando:

Código Delphi [-]
FObject := cMyClass.Create;
myObject.Copy(FObject);

// Saludos

[ecfisa]

Hola noob.

También podrías hacer la creación y copia de los atributos en un paso:

Código Delphi [-]
function cMyClass.Clone: cMyClass;
begin
  Result := cMyClass.Create;
  Move(Self, Result, SizeOf(Self));
end;

Saludos.

[roman]

Empezado por ecfisa

Código Delphi [-]
function cMyClass.Clone: cMyClass;
begin
  Result := cMyClass.Create;
  Move(Self, Result, SizeOf(Self));
end;

¡Ah, caramba! Esto no funcionaría ecfisa. Copiaría tan sólo campos, variables declaradas dento de la clase, pero no las propiedades.

// Saludos

[ecfisa]

Empezado por roman

¡Ah, caramba! Esto no funcionaría ecfisa. Copiaría tan sólo campos, variables declaradas dento de la clase, pero no las propiedades.

// Saludos

Si, es cierto. Creo que tenes razón, se me escaparon las propiedades...

Saludos.

[Neftali [Germán.Estévez]]

A ver si este artículo de Zarko Gajic titulado "How to clone a Delphi form" aclara o ayuda algo.

[roman]

Es interesante, y supongo que puede hacerse con cualquier objeto de la clase TPersistent. Para objetos en general, el problema no está tanto con las propiedades, como dije arriba, puesto que si se copia toda la imagen del objeto en memoria, tal como hace ecfisa, supongo que también se copiarán los campos privados y, en general, el estado del objeto desde el cual se leen las propiedades. Pero el problema son las referencias; subobjetos, cadenas, etc.

Este tema lo tiene dominado Al González, según entiendo. En este hilo menciona que algun vez resolvió ese problema y menciona cuáles son los puntos a tomar en cuenta.

No es trabajo fácil.

// Saludos

[Neftali [Germán.Estévez]]

Empezado por noob

Funciona como esperaba, espero que se entienda y le sirva a alguien.

Ahora ya sí te he entendido.

Gracias por la explicación.