Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle | ||||
---|---|---|---|---|
|
...
...
Função: ASize
Aumenta
...
ou
...
diminui
...
um
...
array
...
a
...
um
...
tamanho
...
especificado
...
Sintaxe
Bloco de código | ||
---|---|---|
| ||
ASize( <aDestino> aDestino >, <nTamanho> ) --> Nil 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
Bloco de código | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
#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
Return
|
Abrangência
Microsiga Protheus 8.11 , Protheus 10
Veja
...
também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas