Aumenta ou diminui um array a um tamanho especificado
Sintaxe
ASize( < aDestino >, < nTamanho > )
Parâmetros Nome
Tipo
Descrição
Obrigatório
Referência
aDestino
vetor
Indica o array que terá o tamanho manipulado.
X
nTamanho
numérico
Indica o novo tamanho do array.
X
Retorno Nome
Tipo
Descrição
uRet
nil
Retorna Nulo (nil)
Exemplos
#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
Abrangência Microsiga Protheus 8.11 , Protheus 10
Veja também