FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Clonar un objeto
Posts: 172
Joined: Fri Oct 07, 2005 12:00 PM
Clonar un objeto
Posted: Tue Oct 17, 2006 09:44 AM

Hola a todos

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

Un saludo

Posts: 229
Joined: Wed Oct 12, 2005 05:32 PM
Clonar un objeto
Posted: Tue Oct 17, 2006 06:47 PM

Hola Paco,

Prueba __objClone( o )

Saludos,
José Luis Capel

Posts: 172
Joined: Fri Oct 07, 2005 12:00 PM
?
Posted: Tue Oct 17, 2006 10:02 PM

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

Posts: 229
Joined: Wed Oct 12, 2005 05:32 PM
Clonar un objeto
Posted: Wed Oct 18, 2006 02:59 PM
Paco,

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
Posts: 172
Joined: Fri Oct 07, 2005 12:00 PM
Clonar un objeto
Posted: Thu Oct 19, 2006 07:25 AM

Muchas gracias voy a probarlo

Continue the discussion