//Definicoes das annotation, deve estar num fonte
#include "tlpp-object.th"
@annotation classe
@end
@annotation attr
@end
@classe()
Class NovaClasse
@attr()
Public Data TesteAttr as char
Public Method New(str)
endclass
Method New(str) class NovaClasse
::TesteAttr := str
return self
User Function testeNovo()
local AttrA
local obj1 := NovaClasse():New("Instancia 1")
Conout("-----------------------")
AttrA := Reflection.getAttributesByAnnotation(obj1, "attr")
Conout(AttrA[1]:toString())
Conout("-----------------------")
return |