¿Qué diferencia hay entre copiar y clonar objetos?

[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

[ecfisa]

Empezado por roman

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.

La verdad, sigo en la duda si con Move se copia la la totalidad, por lo que hice una pequeña prueba:

Código Delphi [-]
...
type
  TCadenaChange = procedure of object;
  TMiClase = class
  private
    F_PI : Double;
    FCadena : string;
    FCadenaChange : TCadenaChange;
    function GetCadena: string;
    procedure SetCadena(Cadena: string);
    procedure AvisoCambioCadena;
  public
    constructor Create;
    property Cadena: string read GetCadena write SetCadena;
    property CadenaOnChange: TCadenaChange read FCadenaChange
      write FCadenaChange;
    function Clone: TMiClase;
    ...
  end;

constructor TMiClase.Create;
begin
  F_PI := 3.141592654;
  FCadenaChange:= AvisoCambioCadena;
end;

procedure TMiClase.AvisoCambioCadena;
begin
  ShowMessage(Format('Cambio Cadena: %s %0.9f',[Cadena, F_PI]) );
end;

function TMiClase.GetCadena: string;
begin
  Result := FCadena;
end;

procedure TMiClase.SetCadena(Cadena: string);
begin
  if Cadena <> FCadena then
  begin
    FCadena:= Cadena;
    if Assigned(FCadenaChange) then
      FCadenaChange;
  end;
end;

function TMiClase.Clone: TMiClase;
begin
  Result:= TMiClase.Create;
  Move(Self,Result,SizeOf(Self));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  c1,c2: TMiClase;
begin
  c1 := TMiClase.Create;
  c1.Cadena:= 'XXXX'; // dispara evento (lógicamente)

  c2 := c1.Clone;
  ShowMessage(c2.Cadena); // XXXX
  c2.Cadena := 'YYYY';   // también dispara evento
  ...
end;
...

Y en ella pareciera que campos, propiedades y eventos son conservados mediante la llamada a Clone. Sin embargo no sé por qué, pienso que se me está escapando algo...

Saludos.