Histórico da Página

...

Portuguese

Pagetitle

	ADel
	ADel

Colapse ALL

Expand ALL

Função: ADel

Elimina

um

elemento

do

array

e

'arrasta'

os

demais

para

trás

tornando

nulo

o

último

elemento.

Sintaxe

ADel ( < aFonte>, < nPosição> ) --> Nil

Parâmetros/Elementos

Nome	Tipo	Descrição	Obrigatório	Referência
aFonte	Vetor	Indica o array que contém um elemento para ser eliminado.	X
nPosição	Numérico	Indica a posição do elemento no array, a partir do primeiro, que será eliminado.	X

Retorno

Nil (Nulo)

Observações

Além disso, o último elemento pode ser removido da estrutura, se conveniente, através da função ASize.

Exemplos

#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
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")