Classe criando propriedades automaticamente

[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

[Nascimento]

valores aleatórios?
não seria usar o random() da ct?

[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

[JoséQuintas]

Não.... criar os nomes em run-time, sem definir na classe.

[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