Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
/* Programa test_doc_resourceGetClassesByAnnotationresourceGetClassesByAnnotation1.tlpp */ #include "tlpp-core.th" namespace resourceClassesbyAnnotation @annotation AnnotationResource nickname as char @end @AnnotationResource(nickname='Resource1') Class resourceClassesbyAnnotation1 Public data data1 Public Method New() EndClass Method New() class resourceClassesbyAnnotation1 Return Self |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
/* Programa test_doc_resourceGetClassesByAnnotation2.tlpp */ #include "tlpp-core.th" namespace resourceClassesbyAnnotation @annotation AnnotationResource nickname as char @end @AnnotationResource(nickname='Resource2') Class resourceClassesbyAnnotation2 Public data data1 Public Method New() EndClass Method New() class resourceClassesbyAnnotation2 Return Self |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include "tlpp-core.th" Function u_testGetClassesByAnnotation() Local aRet as array aRet := Reflection.getClassesByAnnotation('AnnotationResource',"resourceClassesbyAnnotation*") if(valType(aRet) <> "U") .and. (valType(aRet) == "A" .and. len(aRet) > 0) conout(aRet[1]:cClassName) conout(aRet[1]:cProgramName) conout(aRet[2]:cClassName) conout(aRet[2]:cProgramName) else conout('Não foi encontrada nenhuma informação de Annotation com os padrões declarados') endif Return |
Resultado do Exemplo
EXEMPLORESOURCECLASSESBYANNOTATION.OBJ1EXEMPLO1RESOURCECLASSESBYANNOTATION1
TEST_DOC_RESOURCEGETCLASSESBYANNOTATION1.TLPP
EXEMPLORESOURCECLASSESBYANNOTATION.OBJ2EXEMPLO1RESOURCECLASSESBYANNOTATION2
TEST_DOC_RESOURCEGETCLASSESBYANNOTATION2.TLPP
Abrangência
17.3.0.3
Veja também
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas