TOTVSTEC

Árvore de páginas

Tempo aproximado para leitura: 1 minuto

Retorna o valor da propriedade definida no objeto desejado.

Sintaxe

Attribute:GetValue(oObj)

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

oObj

objeto

Indica a instância do objeto em que o atributo está.

X


Retorno

Nome

Tipo

Descrição

oRet

qualquer

Valor do atributo.


Exemplo

Exemplo1.tlpp
//Definicoes das annotation, deve estar num fonte
#include "tlpp-object.th"

@annotation classe
@end

@annotation attr
@end

@classe()
Class NovaClasse

	@attr()
	Public Data TesteAttr as char

	Public Method New(str)
endclass

Method New(str) class NovaClasse
	::TesteAttr := str
return self


User Function testeNovo()
	local AttrA
	local obj1 := NovaClasse():New("Instancia 1")
	local obj2 := NovaClasse():New("Instancia 2")	
	Conout("-----------------------")
	AttrA := Reflection.getAttributesByAnnotation(obj1, "attr")
	Conout(AttrA[1]:GetValue(obj1))
	Conout(AttrA[1]:GetValue(obj2))
	Conout("-----------------------")
	
return

Resultado do Exemplo

-----------------------
Instancia 1
Instancia 2
-----------------------

  • Sem rótulos