#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")