¿Qué diferencia hay entre copiar y clonar objetos?

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

A mi me gustaría ver noob, un pequeño ejemplo de copiar un objeto y clonar un objeto, para saber de qué estamos hablando.

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

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