aSourceArrayObrigatório
Array a modificar.
FUNçãOEm revisão
ADel
ADel( <aSource>, <nPos> ) --> aRetRemove um elemento sem diminuir o tamanho do array.
Visão geral
ADel desloca para trás os elementos posteriores à posição removida e deixa Nil na última posição. Len permanece igual. Se a intenção é excluir também a posição excedente, use ASize depois de uma posição validada. Índices salvos para elementos posteriores podem deixar de identificar os mesmos itens. (TOTVS, s.d., ref. 1)
Sintaxe
ADel( <aSource>, <nPos> ) --> aRetParâmetros
nPosNuméricoObrigatório
Posição válida, a partir de 1.
Retorno
Array resultante da remoção.
Exemplo comentado
#Include "Protheus.ch"
User Function EdAdel()
Local aItens := {"A", "B", "C"}
Local nPos := 2
If nPos >= 1 .And. nPos <= Len(aItens)
// Primeiro desloca, depois remove a posicao final excedente.
ADel(aItens, nPos)
ASize(aItens, Len(aItens) - 1)
EndIf
ConOut(aItens[2])
Return NilResultado esperado
Resultado esperado: {"A", "C"}, com saída C. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
- Ao excluir vários itens por posição, percorrer de trás para frente ou recalcular índices. Não executar ASize quando a remoção não tiver ocorrido.
- Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.