Histórico da Página

AClone( <

 aSource > )

#DEFINE CRLF Chr(13)+Chr(10)

User Function 

aclone1()

  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")

Image Removed