AIns

AIns ( < aDestino>, < nPosicao> ) --> Nil

• Essa função não altera a quantidade de elementos do array. Após inserir um elemento nulo na posição definida, os demais sobem uma posição e o último é descartado.
• Se precisar adicionar um elemento sem perder o último, utilize a função AAdd. Essa função, permite acrescentar um elemento no final do array e, em seguida, inserir na posição desejada.

#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
Local aExemplo := {1, 2, {11, 22, 33}, 4, 5}
Local cMensagem := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função AIns                                            |
//+----------------------------------------------------------------------------+
AIns(aExemplo[3], 2)
AIns(aExemplo, 2)
AIns(aExemplo, 3)
cMensagem += "aExemplo[1] = " + cValToChar(aExemplo[1]) + CRLF
cMensagem += "aExemplo[2] = " + cValToChar(aExemplo[2]) + CRLF
cMensagem += "aExemplo[3] = " + cValToChar(aExemplo[3]) + CRLF
cMensagem += "aExemplo[4] = " + cValToChar(aExemplo[4]) + CRLF
cMensagem += "aExemplo[5] = " + cValToChar(aExemplo[5])
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos                            |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do AIns")