Clonar un objeto

[Paco Garcia]

Hola a todos

¿alguien sabría como clonar un objeto, hacer un duplicado del mismo?

Un saludo

[jlcapel]

Hola Paco,

Prueba __objClone( o )

Saludos,
José Luis Capel

[Paco Garcia]

Supongo que no inicializa metodos ni nada por el estilo, vamos que no llama al constructor.
Los codebloks ¿se duplican también?
Saludos

[jlcapel]

Paco,

Code: Select all  Expand view  RUN

Function Main()
LOCAL u,v

u := miClase():c()
u:s := "objeto u"

v := __objClone( u )

? v:s // "objecto u"
? v:b() // 1

RETURN NIL

CLASS miClase
  DATA s
  DATA t
  METHOD a()
  METHOD B INLINE a() // esto crea un codeblock
  METHOD c()
ENDCLASS

METHOD c() CLASS miClase
RETURN Self

METHOD a() CLASS miClase
RETURN 1

Saludos,
José Luis Capel

[Paco Garcia]

Muchas gracias voy a probarlo