https://foro.gambas-es.org/viewtopic.php?f=1&t=3946&p=22285#p22285
-----------------------------------
osunaosuna
Miercoles, 02 Julio 2014, 06:29

Re: "Enumerar Las Constantes De Una Clase"
-----------------------------------
Ya lo solucione.... pero no desesperes  jguardon pondré la solución acá... la función no esta terminada pero la solución a la pregunta esta ahí...
En verdad estoy haciendo trampa porque a la respuesta ya la sabia solo que no me acordaba esta solución la uso en el código del ide para que cree la documentación de mis programas... aun no esta terminado pero cuando lo tenga mas o menos presentable lo mostrare en sociedad... ahora debo terminar este componente para un proyecto  que tengo colgado hace mas tiempo que el GamDoc.

cuando termine mi componente va a quedar re chulo.... Me darán estrellitas alguna ves?

[code linenumbers=false syntax=gambas]

 Public Function FormatNull(sText As String) As String
  
  Dim LaClase As Class
  Dim sNombreConst As String
  
  '------------------------primero busco las clases cargadas por el ide
  'dentro de estas debe estar la mia ya qe es estatica no la instancie
  For Each LaClase In Classes 
    '------------------------si la encuentro
    If LaClase.Name = "Formats" Then
      '------------------------la pispeo para obtener todo los metodos eventos propiedades etc...
      'para poder diferenciar uno de otro se nesecita cargar la clase que no me acuerdo como 
      'se llama que es al que usa el ide para verificar el codigo empesaba con h algo asi como hihihigigi
      'pero a mi no me interesa pues son solo constantes las que hay en esa clase
      For Each sNombreConst In LaClase.Symbols
        '------------------------recorro el array y yupi tengo todas las constantes
        'si que si...
          Print sNombreConst
      Next
    Endif
  Next
  '------------------------y me voy a dormir....luego seguire.....
End

[/code]

y esta es la salida...

Kg
KM
M2
M3
ML
Lts
HORAS
PESOS
BARRAS
BOLSAS
KiloWats
UNIDADES
TextNormal

p/d: aun no se como ponerle solucionado... :oops:


