TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 4

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.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

...

ADel

...

Colapse ALL

...

...

ADel

Elimina um elemento do array e

...

"arrasta

...

" os demais para trás tornando nulo o último elemento.

Sintaxe

Bloco de código
collapsefalse
ADel( <
aFonte>
 aSource >, <
nPosição> ) --> Nil
Parâmetros/Elementos
 
 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
Nil (Nulo)
Observações

...

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

 

 

Exemplos
Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
#DEFINE CRLF Chr(13)+Chr(10)


User Function
Exemplo
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")
Preview
Exemplo da função ADel
Image Removed

Resultado do Exemplo

Image Added

Abrangência

...

TOTVS Appserver

Veja

...

também