Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle | ||||
---|---|---|---|---|
|
...
Função: ADel
Elimina um elemento do array e
...
"arrasta
...
" os demais para trás tornando nulo o último elemento.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
ADel( <aFonte> aSource >, <nPosição> ) --> Nil 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 |
|
Nil (Nulo)
...
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
Bloco de código | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
#DEFINE CRLF Chr(13)+Chr(10) User FunctionExemplo 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+ 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+ CRLF //+----------------------------------------------------------------------------+ //|Apresenta uma mensagem com os resultados obtidos | //+----------------------------------------------------------------------------+ Return MsgInfo(cMensagem, "Exemplo do ADel")Exemplo da função ADel |
Resultado do Exemplo
Abrangência
Microsiga Protheus 8.11, Protheus 10
Veja
...
também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas