Função: ASize
Aumenta ou diminui um array a um tamanho especificado.
Aumenta ou diminui um array a um tamanho especificado.
ASize ( < aDestino>, < nTamanho> ) --> Nil
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 |
Nil (Nulo)
#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")
Exemplo da função ASize
Microsiga Protheus 8.11
,
Protheus 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas