Histórico da Página
...
Portuguese | |||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: ASize
Aumenta ou diminui um array a um tamanho especificado. ASize ( < aDestino>, < nTamanho> ) --> Nil
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