Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
|
...
...
...
|
Preenche
...
um
...
array
...
com
...
um
...
único
...
valor
...
de
...
qualquer
...
tipo
...
de
...
dados
...
(inclusive
...
array´s,
...
blocos
...
de
...
código
...
ou
...
nulo)
...
na
...
faixa
...
especificada.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
AFill( <aDestino> aDest >, <ValorExp> xValue >, [nInicio nStart ], [nCont nCount ] )--> Nil
|
Parâmetros
...
Nome | Tipo | Descrição | Obrigatório | Referência |
---|
...
aDest |
...
vetor | Indica o array que será preenchido. | X |
|
...
xValue |
...
any | Indica o valor que será alocado em cada elemento do array. O conteúdo desse parâmetro, pode ser uma expressão de qualquer tipo de dado válido. | X |
|
...
nStart |
...
numérico | Indica a posição do primeiro elemento que será preenchido. |
...
|
| |
nCount | numérico |
...
Indica a quantidade de elementos que serão preenchidos começando com o elemento do parâmetro. |
|
|
Retorno
Nome | Tipo | Descrição |
---|---|---|
aRet | vetor | Retorna uma cópia do array indicado por aDest após a operação. |
Observações
- Caso nStart não seja especificado, é considerado o valor 1.
- Caso
...
- nCount não seja
...
- especificado, os elementos são preenchidos a partir da posição do elemento inicial até o final do array.
Exemplos
Bloco de código | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
#DEFINE CRLF Chr(13)+Chr(10) User FunctionExemplo afill1() Local aExemplo := {} Local cMensagem := "" //+----------------------------------------------------------------------------+ //|Exemplifica o uso da função AFill | //+----------------------------------------------------------------------------+ ASize( aExemplo, 5 ) AFill( aExemplo, "X" ) AFill( aExemplo, "Y", 2, 3 ) 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]) //+----------------------------------------------------------------------------+ //|Apresenta uma mensagem com os resultados obtidos | //+----------------------------------------------------------------------------+ Return MsgInfo( cMensagem, "Exemplo do AFill" )Exemplo da função AFill |
Resultado do Exemplo
Abrangência
Microsiga Protheus 8.11, Protheus 10
Veja
...