TOTVSTEC

Árvore de páginas

Preenche um array com um único valor de qualquer tipo de dados (inclusive array´s, blocos de código ou nulo) na faixa especificada.

Sintaxe

AFill( < aDest >, < xValue >, [ nStart ], [ nCount ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

aDest

vetor

Indica o array que será preenchido.

X

 

xValue

any

Indica o valor que será alocado em cada elemento do array. O conteúdo desse parâmetro, pode ser uma expressão de qualquer tipo de dado válido.

X

 

nStart

numérico

Indica a posição do primeiro elemento que será preenchido.

 

 

nCount

numérico

Indica a quantidade de elementos que serão preenchidos começando com o elemento do parâmetro.

 

 

Retorno

Nome

Tipo

Descrição

aRet

vetor

Retorna uma cópia do array indicado por aDest após a operação.

Observações

  • Caso nStart não seja especificado, é considerado o valor 1.
  • Caso nCount não seja especificado, os elementos são preenchidos a partir da posição do elemento inicial até o final do array.

Exemplos

Exemplo 1
#DEFINE CRLF Chr(13)+Chr(10)

User Function afill1()
  Local aExemplo := {}
  Local cMensagem := ""
  
  //+----------------------------------------------------------------------------+
  //|Exemplifica o uso da função AFill                                           |
  //+----------------------------------------------------------------------------+
  ASize( aExemplo, 5 )
  AFill( aExemplo, "X" )
  AFill( aExemplo, "Y", 2, 3 )
  
  cMensagem += "aExemplo[1] = " + cValToChar(aExemplo[1]) + CRLF
  cMensagem += "aExemplo[2] = " + cValToChar(aExemplo[2]) + CRLF
  cMensagem += "aExemplo[3] = " + cValToChar(aExemplo[3]) + CRLF
  cMensagem += "aExemplo[4] = " + cValToChar(aExemplo[4]) + CRLF
  cMensagem += "aExemplo[5] = " + cValToChar(aExemplo[5])

  //+----------------------------------------------------------------------------+
  //|Apresenta uma mensagem com os resultados obtidos                            |
  //+----------------------------------------------------------------------------+
Return MsgInfo( cMensagem, "Exemplo do AFill" )

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Protheus 10

Veja também

  • Sem rótulos