TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Carlos Sampa Junior

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Oberdan de Almeida Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • 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
languagecpp
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapsefalse
#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

...