ASize

#DEFINE CRLF Chr(13)+Chr(10)

User Function Exemplo()
	Local aExemplo := {1, 2, 3, 4}
	Local cMensagem := ""
	
	//+----------------------------------------------------------------------------+
	//|Exemplifica o uso da função ASize                                           |
	//+----------------------------------------------------------------------------+  	
	cMensagem += "Tamanho inicial = " + cValToChar(Len(aExemplo)) + CRLF  
	
	ASize(aExemplo, 5)  
	cMensagem += "Redimensionado = " + cValToChar(Len(aExemplo)) + CRLF  
	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  
	
	ASize(aExemplo, 2)  
	cMensagem += "Redimensionado = " + cValToChar(Len(aExemplo)) + CRLF  
	cMensagem += "aExemplo[1] = " + cValToChar(aExemplo[1]) + CRLF  
	cMensagem += "aExemplo[2] = " + cValToChar(aExemplo[2])
	
	//+----------------------------------------------------------------------------+
	//|Apresenta uma mensagem com os resultados obtidos                            |
	//+----------------------------------------------------------------------------+
	MsgInfo(cMensagem, "Exemplo do ASize")
Return