¡Hola!
Cita:
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);
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'));
Cita:
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.