Histórico da Página
...
| Portuguese | ||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: ACopy
|
| Nome | Tipo | Descrição | Obrigatório | Referência |
| aOrigem | Vetor | Indica o array em que serão copiados os elementos. | X | |
| aDestino | Vetor | Indica o array de destino em que os elementos serão copiados. | X | |
| nInicio | Numérico | Indica o elemento inicial do array aFonte a partir do qual os conteúdos serão copiados. Caso não seja especificado, o valor padrão será um (1). | ||
| nCont | Numérico | Indica a quantidade de elementos que serão copiados do array . Caso não seja especificado, o array de origem será considerado até o último elemento. | ||
| nPosDestino | Numérico | Indica a partir de qual posição do array que receberá os elementos de . Caso não seja especificado, o valor padrão é um (1). |
- aDestino()
- Retorna uma referência ao array de destino <aDestino>.
Esta função pressupõe que o array de destino possui uma estrutura compatível para a cópia; ou seja, a função não altera a estrutura do array destino para viabilizar a cópia.
#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()Local aExemplo := {1, 2, {11, 22, 33}}, aBkp := {, , {, , }}Local cMensagem := ""//+----------------------------------------------------------------------------+//|Exemplifica o uso da função ACopy |//+----------------------------------------------------------------------------+ cMensagem += "Dimensão de AExemplo = " + cValToChar(Len(aExemplo)) + CRLF cMensagem += "aExemplo[1] = " + cValToChar(aExemplo[1]) + CRLF cMensagem += "aExemplo[2] = " + cValToChar(aExemplo[2]) + CRLF cMensagem += "aExemplo[3][1] = " + cValToChar(aExemplo[3][1]) + CRLF cMensagem += "aExemplo[3][2] = " + cValToChar(aExemplo[3][2]) + CRLF cMensagem += "aExemplo[3][3] = " + cValToChar(aExemplo[3][3]) + CRLF cMensagem += "Dimensão inicial da Cópia = " + cValToChar(Len(aBkp)) + CRLF ACopy(aExemplo, aBkp) cMensagem += "Dimensão atual do Cópia = " + cValToChar(Len(aBkp)) + CRLF cMensagem += "Cópia[1] = " + cValToChar(aBkp[1]) + CRLF cMensagem += "Cópia[2] = " + cValToChar(aBkp[2]) + CRLF cMensagem += "Cópia[3][1] = " + cValToChar(aBkp[3][1]) + CRLF cMensagem += "Cópia[3][2] = " + cValToChar(aBkp[3][2]) + CRLF cMensagem += "Cópia[3][3] = " + cValToChar(aBkp[3][3])//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do ACopy")Exemplo da função aCopy
Microsiga Protheus 8.11 , Protheus 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas