Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

Função: AAdd

Inclui um elemento no array e ao elemento, do array recém-criado, é atribuido o valor especificado por parâmetro <expValor>.

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

NomeTipoDescriçãoObrigatórioReferência
aDestinoVetorIndica o array que receberá o novo elemento. X
XExpValorQualquerIndica uma expressão válida que será o valor do novo elemento. Caso seja especificado um outro array, o novo elemento no array destino terá uma referência ao array especificado. X
Nil (Nulo)
  • 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")
Microsiga Protheus 8.11 , Protheus 10

  • Sem rótulos