Histórico da Página
...
Portuguese | |||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
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
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