Função que insere um elemento Nil no Array e ‘empurra’ os outros elementos para frente.

Exemplo da Rotina:

aIns(aArray, nPosicao)

Exemplo 1- Insere um elemento nulo na segunda posição do Array:

aIns – Exemplo 1

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
	@example
	u_zTeste()
/*/

User Function zTeste()
	Local aArea  := GetArea()
	Local aArray := {}
	
	//Adicionando elementos na matriz
	aAdd(aArray, "Daniel")
	aAdd(aArray, "João")
	aAdd(aArray, "Gabriel")
	aAdd(aArray, "Fernando")
	
	//Exclui o segundo elemento do Array (Deixa o segundo elemento como Nil)
	aIns(aArray, 2)
	
	//Mostra o Tamanho do Array
	Alert("Tamanho do Array: "+cValToChar(Len(aArray))+", último elemento: "+aArray[Len(aArray)])
	
	RestArea(aArea)
Return

Exemplo 2- Redimensiona o Array e Insere um elemento nulo na segunda posição:

aIns – Exemplo 2

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
	@example
	u_zTeste()
/*/

User Function zTeste()
	Local aArea  := GetArea()
	Local aArray := {}
	
	//Adicionando elementos na matriz
	aAdd(aArray, "Daniel")
	aAdd(aArray, "João")
	aAdd(aArray, "Gabriel")
	aAdd(aArray, "Fernando")
	
	//Redimensiona o Array, aumentando em 1
	aSize(aArray, Len(aArray)+1)
	
	//Exclui o segundo elemento do Array (Deixa o segundo elemento como Nil)
	aIns(aArray, 2)
	
	//Mostra o Tamanho do Array
	Alert("Tamanho do Array: "+cValToChar(Len(aArray))+", último elemento: "+aArray[Len(aArray)])
	
	RestArea(aArea)
Return

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

– TDN
– Universo AdvPL