Histórico da Página

//Definicoes das annotation, deve estar num fonte
#include "msobject.ch" 

@interface AnnotationExemplo
    nickname as char
@end
namespace exemplo

@AnnotationExemplo(nickname = "MeuObject")
class Obj1
    public method new()
EndClass

@JsonField(nickname = "10")
class Obj2
    public method new()
EndClass


method new() class Obj2
return self

method new() class Obj1
return self


Main Function Exemplo()
    retVar := Reflection.getClassesByAnnotation("JsonFieldAnnotationExemplo", "exemplo.*") //procura por todas as classes do namespace exemplo
    varinfo("retVar", retVar)
    
Return cJson