Histórico da Página

#include "tlpp-core.th"
 
@annotation ClassAnnotation
  nickname as char
@end

@ClassAnnotation(nickname = "Company")

Class GetClassAnnotation
  Public Method New()
EndClass

Method New() class GetClassAnnotation
Return Self
   
Function u_testGetClassAnnotation()

  Local jRet as Object
  
  jRet := Reflection.getClassAnnotation("GetClassAnnotation", "ClassAnnotation")
  Conout(jRet["nickname"])

Return