https://foro.gambas-es.org/viewtopic.php?f=5&t=7972&p=47953#p47953
-----------------------------------
tincho
Viernes, 17 Abril 2020, 21:16

Re: Recorrer Las Propiedades De Una Clase
-----------------------------------
Ya esta, si efectivamente como dice Jesús se pueden ver que propiedades tiene una "clase" pero no del objeto creado a partir de esta.
La ayuda vino de el programa [url=https://foro.gambas-es.org/viewtopic.php?f=5&t=5538]ExploraClases que hizo Shordi.
El código que use es básicamente el siguiente.
1) Obteniendo la lista de variables y propiedades de la clase
[code linenumbers=false syntax=gambas]

               c = Classes["NombreDeLaClase"]
                For Each s In c.Symbols
                    Select c[s].Kind
                        Case Class.Variable
                         tvar.Add(c[s].Name)

                        Case Class.Constant

                        Case Class.Event

                        Case Class.Property'
                         tpro.Add(c[s].Name)


                        Case Class.Method

                    End Select
                Next
[/code]

2) consultar en el objeto una propiedad o variable por su nombre.
[code linenumbers=false syntax=gambas]
            For Each pr In tpro
                Print Object.GetProperty(obj, pr)
            Next
[/code]
Eso es todo.
Saludos.


