PC Toledo

Só agora descobri como inicializar valores na classe sem precisar criar o método new.
Só esbarrei em array previamente preenchida.
Harbour tem algo pronto pra isso?
Por enquanto pensei nesta solução, pra array unidimensional:

Create Class Teste
cVarChar INIT ""
nVarNum INIT 0
aVarArray INIT ArrayOf("",100)
EndClass

Function ArrayOf(xConteudo,nQuantidade)
Local aArray
aArray := Array(nQuantidade)
aFill aArray(xConteudo)
Return aArray

Olá!

Tente isso: