4D v13.4
Arrays de duas dimensões
- Manual de linguagem 4D
-
- Arrays
-
- Arrays
- Criando arrays
- Arrays e objetos de formulário
- Arrays e a linguagem 4D
- Arrays e ponteiros
- Usando o elemento zero de um array
- Arrays de duas dimensões
- Arrays e Memória
- APPEND TO ARRAY
- ARRAY BOOLEAN
- ARRAY DATE
- ARRAY INTEGER
- ARRAY LONGINT
- ARRAY PICTURE
- ARRAY POINTER
- ARRAY REAL
- ARRAY STRING
- ARRAY TEXT
- ARRAY TO LIST
- ARRAY TO SELECTIONUpd
- BOOLEAN ARRAY FROM SET
- COPY ARRAY
- Count in array
- DELETE FROM ARRAY
- DISTINCT VALUES
- Find in array
- INSERT IN ARRAY
- LIST TO ARRAY
- LONGINT ARRAY FROM SELECTION
- MULTI SORT ARRAY
- SELECTION RANGE TO ARRAYUpd
- SELECTION TO ARRAYUpd
- Size of array
- SORT ARRAY
- TEXT TO ARRAYNew
Arrays de duas dimensões
Cada comando de declaração de array pode criar ou redimensionar arrays de uma ou duas dimensões. Exemplo:
ARRAY TEXT(atTemas;100;50) ` Criar um array de texto composto de 100 filas a 50 colunasArrays de duas dimensões são essencialmente objetos de linguagem; não é possível visualizar nem imprimir este tipo de array.
No exemplo anterior:
- atTemas é um array de duas dimensões
- atTemas{8}{5} é o quinto elemento (quinta coluna...) da linha oito
- atTemas{20} é a linha 20 e um array de uma dimensão
- Size of Array(atTemas) retorna 100, que é o número de linhas
- Size of Array(atTemas{17}) retorna 50, que é o número de colunas da linha 17
No exemplo seguinte, um indicador a cada campo de cada tabela na base de dados é armazenado em um array de duas dimensões:
C_LONGINT($vlUltimaTabela;$vlUltimoCampo)
C_LONGINT($vlNumeroCampo)
` Criar tantas linhas (vazias e sem colunas) quanto as tabelas existentes
$vlUltimaTabla:=Get last table number
ARRAY POINTER(<>apCampos;$vlUltimaTabla;0) `Array de duas dimensões com X linhas e 0 colunas
` Para cada tabela
For($vlTabela;1;$vlUltimaTabela)
If(Is table number valid($vlTabela))
$vlUltimoCampo:=Get last field number($vlTabela)
` Definir os valores dos elementos
$vlNumeroColuna:=0
For($vlCampo;1;$vlUltimoCampo)
If(Is field number valid($vlTabela;$vlCampo))
$vlNumeroColuna:=$vlNumeroColuna+1
`Inserir uma coluna na linha da tabela em uso
INSERT IN ARRAY(<>apCampos{$vlTabla};$vlNumeroColuna;1)
`Aponte a "celula" com o ponteiro
<>apCampos{$vlTabela}{$vlNumeroColumna}:=Field($vlTabela;$vlCampo)
End if
End for
End if
End forDado que este array de duas dimensões foi inicializado, você pode obter os apontadores aos campos para uma tabela em particular da seguinte forma:
` Obter os apontadores aos campos para a tabela atualmente mostrada na tela::
COPY ARRAY(<>apCampos{Tabele(Current form table)};$apCamposAtuais)
` Inicializar os campos booleanos e de data
For($vlElemento;1;Size of array($pCamposAtuais))
Case of
:(Type($apCamposAtuais{$vlElemento}->)=Is Date)
$apCamposAtuais{$vlElemento}->:=Current date
:(Type($apCamposAtuais{$vlElemento}->)=Is Boolean)
$apCamposAtuais{$vlElemento}->:=True
End case
End forNota: como este exemplo sugere, as linhas de um array de duas dimensões podem ter o mesmo tamanho, ou tamanhos diferentes
Produto: 4D
Tema: Arrays
