Exibir origem

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

Retorna uma string com o conteúdo do objeto Class.

Sintaxe

Class:toString()

Retorno

Nome	Tipo	Descrição
cRet	caractere	Retorna uma string com o conteúdo do objeto Class.

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 method new()
EndClass 


method new() class Obj1
return self  


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

Resultado do Exemplo

ClassName:OBJ1;ProgramName:EXEMPLO1.TLPP

//Definicoes das annotation, deve estar num fonte

#include "msobject.ch"

namespace exemplo

@annotation AnnotationExemplo

    nickname as char

@end

@AnnotationExemplo(nickname = "MeuObject")

class Obj1

    public method new()

EndClass

@AnnotationExemplo(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("AnnotationExemplo", "exemplo.*") //procura por todas as classes do namespace exemplo

    conout(retVar[1]:cClassName)

    conout(retVar[1]:cProgramName)

    conout(retVar[2]:cClassName)

    conout(retVar[2]:cProgramName)

Return cJson