TOTVSTEC

Árvore de páginas

Elimina um elemento do array e "arrasta" os demais para trás tornando nulo o último elemento.

Sintaxe

ADel( < aSource >, < nPos > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

aSource

vetor

Indica o array que contém um elemento para ser eliminado.

X

 

nPos

numérico

Indica a posição do elemento no array, a partir do primeiro, que será eliminado.

X

 

Retorno

Nome

Tipo

Descrição

aRet

vetor

Retorna o array especificado em <aSource>.

Observações

  • O último elemento pode ser removido da estrutura, se conveniente, através da função ASize.
  • Se <nPos> for maior do que o tamanho de <aSource> ou menor que 0, será retornado um erro AdvPL com a mensagem: "Array index out of bounds on adel".

Exemplos

Exemplo 1
#DEFINE CRLF Chr(13)+Chr(10)
User Function adel1()
  Local aExemplo := { 1, 2, { 11, 22, 33 } }
  Local cMensagem := ""
  
  //+----------------------------------------------------------------------------+
  //|Exemplifica o uso da função ADel                                            |
  //+----------------------------------------------------------------------------+
  
  cMensagem += "Dimensão de AExemplo = " + cValToChar( Len( aExemplo ) ) + CRLF
  cMensagem += "aExemplo[1] = "          + cValToChar( aExemplo[1]     ) + CRLF
  cMensagem += "aExemplo[2] = "          + cValToChar( aExemplo[2]     ) + CRLF
  cMensagem += "aExemplo[3][1] = "       + cValToChar( aExemplo[3][1]  ) + CRLF
  cMensagem += "aExemplo[3][2] = "       + cValToChar( aExemplo[3][2]  ) + CRLF
  cMensagem += "aExemplo[3][3] = "       + cValToChar( aExemplo[3][3]  ) + CRLF
  
  ADel( aExemplo, 2 )
  ASize( aExemplo, 2 )
  
  cMensagem += "Dimensão atual = " + cValToChar( Len( aExemplo ) ) + CRLF
  cMensagem += "aExemplo[1] = "    + cValToChar( aExemplo[1]     ) + CRLF
  cMensagem += "aExemplo[2][1] = " + cValToChar( aExemplo[2][1]  ) + CRLF
  cMensagem += "aExemplo[2][2] = " + cValToChar( aExemplo[2][2]  ) + CRLF
  cMensagem += "aExemplo[2][3] = " + cValToChar( aExemplo[2][3]  ) + CRLF
  
  //+----------------------------------------------------------------------------+
  //|Apresenta uma mensagem com os resultados obtidos                            |
  //+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do ADel")

Resultado do Exemplo

Abrangência

TOTVS Appserver

Veja também

 

  • Sem rótulos