Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle
ASize
ASize

Função: ASize

Aumenta ou diminui um array a um tamanho especificado

...

Sintaxe

Bloco de código
collapsefalse
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

Nil (Nulo)

...

Bloco de código
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapsefalse
#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
Image Removed

Abrangência

Microsiga Protheus 8.11 , Protheus 10

Veja

...

também

...