Array

Array ( < nElementos1>, [ nElementosN] ) --> aRet

(vetor)
• Retorna um array com a dimensão especificada.

User Function Exemplo()
Local aExemplo := Nil
Local cMensagem := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função Array                                           |
//+----------------------------------------------------------------------------+
  aExemplo := Array(7, 7)
  aExemplo[1] := {"E", "A", "S", "U", "I", "M", "F"}
  aExemplo[2] := {"Ç", "X", "D", "F", "B", "N", "X"}
  aExemplo[3] := {"D", "P", "E", "G", "G", "H", "B"}
  aExemplo[4] := {"N", "A", "K", "M", "R", "E", "H"}
  aExemplo[5] := {"R", "H", "Z", "Y", "P", "T", "Y"}
  aExemplo[6] := {"K", "X", "A", "K", "J", "L", "U"}
  aExemplo[7] := {"M", "S", "C", "V", "P", "O", "O"}
  cMensagem += cValToChar(aExemplo[1][1])
  cMensagem += cValToChar(aExemplo[2][2])
  cMensagem += cValToChar(aExemplo[3][3])
  cMensagem += cValToChar(aExemplo[4][4])
  cMensagem += cValToChar(aExemplo[5][5])
  cMensagem += cValToChar(aExemplo[6][6])
  cMensagem += cValToChar(aExemplo[7][7])
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos                            |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do Array")