TOTVSTEC

Árvore de páginas

Inclui um elemento nulo na posição definida e 'empurra' os demais para frente descartando o último elemento.

Sintaxe

AIns( < aDest >, < nPos > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

aDest

vetor

Indica o array que será manipulado.

X

 

nPos

numérico

Indica a posição, a partir da primeira, na qual será inserido um elemento nulo.

X

 

Retorno

Nome

Tipo

Descrição

aRet

vetor

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

Observações

  • Essa função não altera a quantidade de elementos do array. Após inserir um elemento nulo na posição definida, os demais sobem uma posição e o último é descartado.
  • Se precisar adicionar um elemento sem perder o último, utilize a função AAdd. Essa função, permite acrescentar um elemento no final do array e, em seguida, inserir na posição desejada.

Exemplos

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

User Function ains1()
  Local aExemplo := { 1, 2, { 11, 22, 33 }, 4, 5 }
  Local cMensagem := ""
  
  //+----------------------------------------------------------------------------+
  //|Exemplifica o uso da função AIns                                            |
  //+----------------------------------------------------------------------------+
  
  AIns( aExemplo[3], 2 )
  AIns( aExemplo, 2 )
  AIns( aExemplo, 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] )
  
  varinfo( "aExemplo", aExemplo )
  
  //+----------------------------------------------------------------------------+
  //|Apresenta uma mensagem com os resultados obtidos                            |
  //+----------------------------------------------------------------------------+
Return MsgInfo( cMensagem, "Exemplo do AIns" )

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Protheus 10

Veja também

  • Sem rótulos