Page tree
Skip to end of metadata
Go to start of metadata

Cria um array não inicializado com a quantidade especificada de elementos.

Sintaxe

Array( < nElementos1 >, [ xElemento2,xElemento3...xElemento16 ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nElementos1

numérico

Indica o tamanho do array

X

 

xElemento2,xElemento3...xElemento16

qualquer

Se for numérico, cria um array multidimensional, se for diferente de número inicializa o array com o valor informado

 

 

Retorno

Nome

Tipo

Descrição

aRet

vetor

Retorna um array com a dimensão especificada.

Observações

  • Até 16 parametros podem ser informados, para criar arrays multidimensionais. Somente o último parametro pode ser diferente de número para inicializar o array o valor informado.

Exemplos

Exemplo 1
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                            |
  //+----------------------------------------------------------------------------+
  MsgInfo(cMensagem, "Exemplo do Array")
Return

Abrangência

Microsiga Protheus 8.11 , Protheus 10

Veja também

  • No labels