¿Qué diferencia hay entre copiar y clonar objetos?

[noob]

Hola,

Nunca uso estas características de la OOP en Delphi, ¿me podríais asesorar un poco?

Muchas gracias.

[roman]

¿En delphi se pueden clonar objetos? Será en las nuevas versiones porque antes no era posible.

En todo caso, aunque no sé si responda a tu duda, has de saber que en delphi las variables de tipo objeto son, en realidad, apuntadores al objeto, de manera que, cuando copias uno a otro:

Código Delphi [-]
ObjetoB := ObjetoA;

en realidad sólo estás copiando los apuntadores, de forma que ObjetoA y ObjetoB son dos apuntadores que apuntan al mismo objeto. Si haces un cambio en las propiedades de ObjetoA, dicho cambio se reflejará en ObjetoB.

Una clonación de objetos -que, repito, no sabía que se puede hacer en delphi- es crear un objeto aparte pero exactamente igual al primero. En ese caso, los cambios a un objeto ya no se reflejarían en el otro.

En el caso de delphi 7, que es el que conozco, no existe tal cosa como la clonación de objetos, aunque hay algo similar en los objetos de la clase TPersistent (y derivadas) con los métodos Assign y AssignTo, con los cuales se pretende hacer una copia de un objeto, aunque no es tanto como una clonacón y muchas veces tiene uno que implementar dichos métodos explícitamente.

// Saludos

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

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