Função: ADel
Elimina um elemento do array e 'arrasta' os demais para trás tornando nulo o último elemento.
ADel ( < aFonte>, < nPosição> ) --> Nil
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 |
Nil (Nulo)
Além disso, o último elemento pode ser removido da estrutura, se conveniente, através da função ASize.
#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")
Exemplo da função ADel
Microsiga Protheus 8.11 , Protheus 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas