Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

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

NomeTipoDescriçãoObrigatórioReferência
aDestinoVetorIndica o array que será preenchido. X
ValorExpNuméricoIndica 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
nInicioNuméricoIndica a posição do primeiro elemento que será preenchido. Caso o parâmetro fique em branco, o valor padrão será um (1).
nContNuméricoIndica 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

  • Sem rótulos