import.css=/download/attachments/6062824/tecnologia.css

Cria uma instância da classe descrita.

Sintaxe

Class:CreateInstance()

Retorno

Nome

Tipo

Descrição

oRet

caractere

Retorna um objeto do tipo da Classe descrita.


Exemplo

//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

Resultado do Exemplo

"teste"