Histórico da Página

#include "tlpp-object.th"
 
@annotation attr
@end
 
Class NovaClasseGetAttributesByAnnotation
 
	  @attr()
	  Public Data TesteAttrcAttr as characterCharacter

	  Public Method New(str)
  
EndClass
 
Method New(str) class NovaClasseGetAttributesByAnnotation
	  ::TesteAttrcAttr := str "initialized"
Return self
 
Function u_testeNovotestGetAttributesByAnnotation()
	local AttrA
	local obj1  
  Local aAttr as Array
  local obj   as Object

  obj   := NovaClasseGetAttributesByAnnotation():New("Instancia 1")

	ConOut("-----------------------")
	AttrA)
  aAttr := Reflection.getAttributesByAnnotation(obj1obj, "attr")
	  ConOut(AttrAaAttr[1]:cAttributeName)
	  ConOut(AttrAaAttr[1]:cAttributeType)
	ConOut("-----------------------")

Return    
Return