Página 1 de 1

Classe criando propriedades automaticamente

Enviado: 23 Jan 2018 20:33
por JoséQuintas
Como se cria uma classe pra criar valores automaticamente?

Tipo......

oVar := MyClass():New()
oVar:Valor := 10

CREATE CLASS MyClass
// Sei lá o que fazer
ENDCLASS

Classe criando propriedades automaticamente

Enviado: 23 Jan 2018 22:35
por Nascimento
valores aleatórios?
não seria usar o random() da ct?

Classe criando propriedades automaticamente

Enviado: 23 Jan 2018 22:36
por Giovany Vecchi
Se eu entendi a sua questão deve ser isto:

Código: Selecionar todos

CREATE CLASS MyClass
  Data Valor Init 10.00
  Data dtHoje Init Date()
ENDCLASS

Classe criando propriedades automaticamente

Enviado: 23 Jan 2018 23:26
por JoséQuintas
Não.... criar os nomes em run-time, sem definir na classe.

Classe criando propriedades automaticamente

Enviado: 24 Jan 2018 09:17
por Giovany Vecchi
Entendi

CREATE CLASS My_Class

Method New() Constructor
method Teste_Cria_Data()
ENDCLASS
////////////////////
Method New() Class My_Class

Return Self
/////////////////////
Method Teste_Cria_Data() Class My_Class
Local oSelf := Hb_qSelf()

__objAddData(oSelf,"My_Data_Criado") // Criando em tempo de execução a variavel My_Data_Criado

::My_Data_Criado := "Variavel criada"

/// Para checar se existe
If __ObjHasData(oSelf,"My_Data_Criado") /// Checando se a variavel existe
? "Variavel Existe"
EndIf

Return Nil