Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagecpp
themeEclipse
titleexemplo1test_doc_resourceGetClassesByAnnotation.tlpp
linenumberstrue
/*
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
languagecpp
themeEclipse
titletest_doc_resourceGetClassesByAnnotation2.tlpp
linenumberstrue
/*
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
languagecpp
themeEclipse
titletestGetClassesByAnnotation.tlpp
linenumberstrue
#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

...