ASize

ASize ( < aDestino>, < nTamanho> ) --> Nil

#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                            |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do ASize")