Função: ASize
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)
Exemplo
#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
Exemplo da função ASize
Microsiga Protheus 8.11 , Protheus 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas