Criar array preenchido - Harbour tem algo pra isso?

[JoséQuintas]

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

[alxsts]

Olá!

Tente isso:

Código: Selecionar todos

aVarArray INIT AFill( Array(100), "" )