Histórico da Página

#include "tlpp-object.th"

@annotation classe
@end

@annotation attr
@end

@classe()
Class NovaClasse

	@attr()
	Public Data TesteAttr as character

	Public Method New(str)
endclassEndClass

Method New(str) class NovaClasse
	::TesteAttr := str Returnself
Return self

User Function u_testeNovo()
	local AttrA
	local obj1 := NovaClasse():New("Instancia 1")
	
	ConoutConOut("-----------------------")
	AttrA := Reflection.getAttributesByAnnotation(obj1, "attr")
	ConoutConOut(AttrA[1]:cAttributeName)
	ConoutConOut(AttrA[1]:cAttributeType)
	ConoutConOut("-----------------------")
	
Return