Função: AFill
Preenche um array com um único valor de qualquer tipo de dados (inclusive array´s, blocos de código ou nulo) na faixa especificada.
AFill ( < aDestino>, < ValorExp>, [ nInicio], [ nCont] ) --> Nil
Nome | Tipo | Descrição | Obrigatório | Referência |
aDestino | Vetor | Indica o array que será preenchido. | X | |
ValorExp | Numérico | 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 | |
nInicio | Numérico | Indica a posição do primeiro elemento que será preenchido. Caso o parâmetro fique em branco, o valor padrão será um (1). | ||
nCont | Numérico | Indica a quantidade de elementos que serão preenchidos começando com o elemento do parâmetro . Caso esse parâmetro não seja informado, os elementos são preenchidos a partir da posição do elemento inicial até o final do array. |
Nil (Nulo)
#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
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
Microsiga Protheus 8.11 , Protheus 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas