Clonar Objeto

[senda]

Hola, mi problema creo que es más bien teórico. Tengo un objeto con atributos "complejos" (no sirve una simple asignación para clonarlos). He creado un método para clonar objetos de esta clase con la siguiente interfaz:

   function Cp () : TObjeto;

El problema, vamos la excepción que obtengo al ejecutar el código se produce al volver de la anterior función ejecutando la siguiente llamada:

   miclon := miobjeto.Cp()

¿Sería necesario hacer un create de 'miclon'? En tal caso, he implementado el constructor 'a mano' para inicializar el objeto a la vez que se crea, ¿cómo puedo redefinir esta operación? Es decir, implementar un 'Create' sin argumentos (atributos)?

[senda]

Solucionado. He cambiado la interfaz de la función copia:

 procedure Cp (var copia : TObjeto);

Y he insertado valores por defecto en el constructor que ya tenía.