aSourceArrayObligatorio
Array a modificar.
FUNCIóNEn revisión
ADel
ADel( <aSource>, <nPos> ) --> aRetElimina elemento sin reducir tamaño del array.
Descripción general
ADel desplaza elementos posteriores hacia atrás y deja Nil al final. Len no cambia. Para eliminar también posición sobrante usar ASize tras validar posición. Índices guardados de elementos posteriores pueden identificar otros elementos. (TOTVS, s.d., ref. 1)
Sintaxis
ADel( <aSource>, <nPos> ) --> aRetParámetros
nPosNuméricoObligatorio
Posición válida desde 1.
Retorno
Array resultante de eliminación.
Ejemplo comentado
#Include "Protheus.ch"
User Function EdAdel()
Local aItems := {"A", "B", "C"}
Local nPos := 2
If nPos >= 1 .And. nPos <= Len(aItems)
// Primero desplaza; luego elimina posicion sobrante final.
ADel(aItems, nPos)
ASize(aItems, Len(aItems) - 1)
EndIf
ConOut(aItems[2])
Return NilResultado esperado
Resultado esperado: {"A", "C"}, salida C. En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
- Al eliminar varias posiciones recorrer hacia atrás o recalcular índices. No reducir tamaño si no hubo eliminación.
- En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.