Class:CreateInstance

Class:CreateInstance()

//Definicoes das annotation, deve estar num fonte
#include "msobject.ch"
namespace exemplo
 
 
@annotation AnnotationExemplo    
    nickname as char
@end  
 
 
@AnnotationExemplo(nickname = "MeuObject")
class Obj1    
	public data teste
    public method new()
EndClass 
 
 
method new() class Obj1
return self  
 
 
Main Function Exemplo()    
	local oRet
	local retVar := Reflection.getClassesByAnnotation("AnnotationExemplo", "exemplo.*") //procura por todas as classes do namespace exemplo   
    oRet := retVar1:CreateInstance()
	oRet:teste := "teste"
	conout(oRet:teste)
Return