Função que cria um Array com tamanho pré-definido.

Exemplo da Rotina:

aDados := Array(5)

Exemplo 1- Cria um array simples com 3 linhas:

Array – Exemplo 1

//Bibliotecas
#Include "Protheus.ch"
 
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/
 
User Function zTeste()
	Local aArea      := GetArea()
	Local aDados     := Array(3)
	Local nAtual     := 0
	
	//Define o Array
	aDados[1] := "Daniel"
	aDados[2] := "Hudson"
	aDados[3] := "Atilio"
	
	//Percorre e mostra o nome
	For nAtual := 1 To Len(aDados)
		MsgInfo("["+cValToChar(nAtual)+"] "+aDados[nAtual], "Atenção")
	Next
	
	RestArea(aArea)
Return

Exemplo 2- Cria um array múltiplo com 2 linhas e 3 colunas:

Array – Exemplo 2

//Bibliotecas
#Include "Protheus.ch"
 
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/
 
User Function zTeste()
	Local aArea      := GetArea()
	Local aDadosMult := Array(2, 3)
	Local nAtual     := 0
	
	//Define o Array Multidimensional
	aDadosMult[1] := {"Daniel", "XXX", "23"}
	aDadosMult[2] := {"Hudson", "YYY", "33"}
	
	//Percorre e mostra o nome
	For nAtual := 1 To Len(aDadosMult)
		MsgInfo("["+cValToChar(nAtual)+"] [1]"+aDadosMult[nAtual][01]+;
			", [2] RG: "+aDadosMult[nAtual][02]+;
			", [3] Idade: "+aDadosMult[nAtual][03], "Atenção")
	Next
	
	RestArea(aArea)
Return

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

– TDN