El problema:
      Obtener un New objeto que sea igual que el referenciado, tanto en su clase como en todas sus variables y propiedades. O sea, un clon pero en otra posicion de memoria.

tercoIDE:
Mirate esto: http://sologambas.blogspot.com/2014...ar-objetos.html

A ver si te sirve...

Saludos

Julio

jsbsan escribió:  

tercoIDE:
Mirate esto: http://sologambas.blogspot.com/2014...ar-objetos.html

A ver si te sirve...

Yo supongo que no: ...tercoIDE en estos días está de humor para refinamientos "excesivos".    

tercoIDE escribió:  

El problema:
      Obtener un New objeto que sea igual que el referenciado, tanto en su clase como en todas sus variables y propiedades. O sea, un clon pero en otra posicion de memoria.

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Public c1 as New Clase1
Public c2 as New Clase2                   ' Son todas distintas
Public c3 as New Clase3
Public c4 as New Clase4


Public Sub ClonMe(original as Object) as Object

' un nuevo objeto igual al original
?????

End

Me parece que tú quieres obtener, crear un Objeto "c5" pero sin la sintaxis "As New .....", sino obteniéndolo del Objeto pasado a la función, como modelo, como base.

De todos modos yo te respondo con otra pregunta: ¿desde el punto de vista del bajo nivel, qué significa crear un Objeto, una instancia de una Clase?

jsbsan escribió:  

tercoIDE:
Mirate esto: http://sologambas.blogspot.com/2014...ar-objetos.html

A ver si te sirve...

Saludos

Julio

No funciono porque la clase tiene un array de otro clase menor




La variable P es un array de clase Punto. La rutina que me pasaste no puede procesar eso.

vuott escribió:  

[
Me parece que tú quieres obtener, crear un Objeto "c5" pero sin la sintaxis "As New .....", sino obteniéndolo del Objeto pasado a la función, como modelo, como base.

De todos modos yo te respondo con otra pregunta: ¿desde el punto de vista del bajo nivel, qué significa crear un Objeto, una instancia de una Clase?

Quiero crear una nueva instancia de un objeto del cual no conozco la clase y copiar todo el contenido.

No se como trabaja internamente gambas, pero tal vez un objeto sea una porcion de memoria con datos interpretables por GBX y tal vez, solo tal vez pueda ser copiado como eso, una porcion de memoria y asignada a un puntero de un objeto nuevo...tal vez...habria que meter la cabeza en el agujero como tu avestruz

tercoIDE escribió:  

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

' SAVE from this
Public P As New Punto[]                     ' acumulador de puntos
Public Level As Float                       ' from 0 to 1

' For future use in CAD implementation
Public Layer As Integer                      ' Capa o Layer
Public Group As Integer                     ' Para tener la posibilidade de juntar cosas en un grupo
Public _Color As Integer                     ' Para darle un color distinto al del layer
Public LineType As Integer                  
Public LineWidth As Integer                  
 

La variable P es un array de clase Punto. La rutina que me pasaste no puede procesar eso.

Este codigo funciona para mi caso particular. Pero tengo que meter los puntos a mano.
Estaria bien tener un codigo universal.

tercoIDE escribió:  

El problema:
      Obtener un New objeto que sea igual que el referenciado, tanto en su clase como en todas sus variables y propiedades. O sea, un clon pero en otra posicion de memoria.

Los objetos collection se pueden copiar.
Por ejemplo.

Saludos.

Esta función podria servir

Saludos.

tercoIDE escribió:  

... un objeto sea una porcion de memoria con datos interpretables por GBX

Exactamente, y esto lo hace el Constructor "New".
New construye las Estructuras y las sub-estructuras necesarias y previstas para dar vida al Objeto deseado, asignando la necesaria memoria.

tercoIDE escribió:  

Estaria bien tener un codigo universal.

Yo propondría el siguiente ejemplo:  

Modulo principal



Clase secundaria:  Class1.class