Á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: AClone

Duplica um array (estrutura e elementos).

AClone ( < aOrigem> ) --> aRet

NomeTipoDescriçãoObrigatórioReferência
aOrigemVetorIndica o array que será duplicado. X
    aRet(vetor)
  • Retorna um array idêntico ao informado no parâmetro.

#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 AClone                                          |//+----------------------------------------------------------------------------+  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 do Clone = " + cValToChar(Len(aBkp)) + CRLF  aBkp := AClone(aExemplo)  cMensagem += "Dimensão atual do Clone = " + cValToChar(Len(aBkp))   + CRLF  cMensagem += "Clone[1] = " + cValToChar(aBkp[1])                    + CRLF  cMensagem += "Clone[2] = " + cValToChar(aBkp[2])                    + CRLF  cMensagem += "Clone[3][1] = " + cValToChar(aBkp[3][1])              + CRLF  cMensagem += "Clone[3][2] = " + cValToChar(aBkp[3][2])              + CRLF  cMensagem += "Clone[3][3] = " + cValToChar(aBkp[3][3])//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos                            |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do AClone")

Exemplo da função AClone
Microsiga Protheus 8.11 , Protheus 10

  • Sem rótulos