AAdd

AAdd ( < aDestino>, < XExpValor> ) --> Nil

• Essa função é útil na construção de filas ou listas dinâmicas. Utilize para aumentar o tamanho de um array dinamicamente.
• Essa função é semelhante a função ASize(), mas adiciona apenas um elemento por vez. Já ASize() permite aumentar ou diminuir um array a um tamanho especificado. Além disso, AAdd() possui a vantagem de poder atribuir um valor ao novo elemento, enquanto que ASize() não pode. Além disso, AAdd() pode parecer igual a função AIns(), mas não é verdade porque AIns() move os elementos dentro de um array, mas não modifica seu tamanho.

#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()Local aArray := {}, aExemplo := {}Local cCaractere := "Exemplo", cMensagem := ""Local dData := Date()Local lLogico := .T.Local nNumerico := 86887//+----------------------------------------------------------------------------+//|Exemplifica o uso da função AAdd                                            |//+----------------------------------------------------------------------------+  AAdd(aExemplo, aArray    )  AAdd(aExemplo, cCaractere)  AAdd(aExemplo, dData     )  AAdd(aExemplo, lLogico   )  AAdd(aExemplo, nNumerico )  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]) + CRLF//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos                            |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do AAdd")