AClone

AClone ( < aOrigem> ) --> 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")