Histórico da Página
...
- 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 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
Microsiga Protheus 8.11, Protheus 10TOTVS Appserver
Veja também
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas