procedimiento de asignación genérico

[[Al González]]

¡Hola!

Empezado por gushynet

...objeto1 := objeto2;

realmente no se hace la asignacion sino que objeto1 apuntara a la misma posicion de memoria que objeto2.

Estoy intentando hacer un procedimiento que realice la asignacion completa, es decir, el procedimiento debe crear una nueva instancia del objeto pasado por parametro (objeto2), que en principio no sabemos de que tipo es, y copiar el contenido de todas las propiedades del objeto2 en las propiedades del objeto1.
...
los pasos que creo se deberia seguir para realizar la asignacion son los siguientes:

1. Averigua el tipo del objeto pasado por parametro
...
2. crea una nueva instancia del objeto una vez averiguado su tipo
...
3. accedemos a todos los campos del objeto pasado por parametro y copiamos su contenido en las propiedades del objeto creado. Aqui se me plantea el problema de como recorrer todas las propiedades del objeto pasado por parametro.
...
4. Devolvemos el objeto creado.
...

En esta página podrás descargar una biblioteca de funciones llamada GH Freebrary, es de mi autoría. En la unidad GHFObjects.pas encontrarás una función llamada ghClone que, en esencia, realiza esos pasos que has descrito con el objetivo de duplicar instancias de objetos.

Código Delphi [-]
Uses
  GHFObjects;
...
  Var
    O2 :TObject;
  Begin
    O2 := ghClone (O1);  // Siendo O1 un objeto de cualquier clase

Cabe aclarar que esta rutina de "clonación", después de crear la nueva instancia, copia solamente las propiedades publicadas (que básicamente son las mismas que pueden ser vistas en el inspector de objetos). También considera que el código de estas funciones está probado (en casos reales) con Delphi 7, pero no he terminado de adaptarlo a otras versiones (aunque un compañero del club tuvo la gentileza de adaptarlo a Delphi 6 y 2007 en pasadas semanas, sólo haría falta revisar tales adaptaciones).

Algo quizá más importante de considerar es que la función ghClone llamará al constructor que tenga definido la clase en cuestión sólo si se trata de una descendiente de TComponent (gracias a que el constructor de TComponent es virtual). Si el objeto a clonar no es un componente, ghClone ejecutará el constructor de la clase TObject después de crear la instancia.

Son tres las versiones (sobrecargas) de esta función:

Código Delphi [-]
  Function ghClone (Const Obj :TObject; Const Cls :TClass;
    Const Owner :TComponent = Nil; Const ExcludedProps :String = '')
    :TObject; Overload;
  Begin
    If Obj Is TComponent Then
      Result := TComponentClass (Cls).Create (Owner)
    Else
      Result := Cls.Create;

    Try
      ghCopyProps (Obj, Result, ExcludedProps);
    Except
      Result.Free;
      Raise;
    End;
  End;

  Function ghClone (Const Obj :TObject; Const Owner :TComponent = Nil;
    Const ExcludedProps :String = '') :TObject; Overload;
  Begin
    Result := ghClone (Obj, Obj.ClassType, Owner, ExcludedProps);
  End;
  
  Function ghClone (Const Obj :TObject; Const ExcludedProps :String)
    :TObject; Overload;
  Begin
    Result := ghClone (Obj, Obj.ClassType, Nil, ExcludedProps);
  End;

Como podrás ver, las tres sobrecargas terminan llamando a una función de nombre ghCopyProps, que en otros casos podrías usar para copiar las propiedades de un objeto existente a otro.

El parámetro opcional ExcludedProps te sirve para indicarle a la función que no copie algunas propiedades en particular:

Código Delphi [-]
Var
  C2 :TComponent;
Begin
  C2 := TComponent (ghClone (C1, 'Name;OnClick'));  // Siendo C1 un objeto componente

Empezado por gushynet

...PD:disculpas por lo extendido que me ha quedado el mensaje.

Creo que esa petición está de sobra, gushynet. El tamaño y estilo de tu mensaje, para ser el primero, muestra un verdadero interés por darse a entender y solucionar el problema.

Un abrazo doble.

Al González.