4D v13.4
Arrays de dos dimensiones
- Manual de lenguaje 4D
-
- Arrays
-
- Arrays
- Creación de arrays
- Arrays y objetos de formulario
- Arrays y el lenguaje 4D
- Arrays y punteros
- Utilizar el elemento cero de un array
- Arrays de dos dimensiones
- Arrays y memoria
- 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 dos dimensiones
Cada comando de declaración de array puede crear o redimensionar arrays de una o dos dimensiones. Ejemplo:
ARRAY TEXT(atTemas;100;50) ` Crear un array texto compuesto de 100 filas de 50 columnasLos arrays de dos dimensiones son esencialmente objetos del lenguaje; no es posible visualizarlos o imprimirlos.
En el ejemplo anterior:
- atTemas es un array de dos dimensiones
- atTemas{8}{5} es el elemento 5 (columna 5...) de la fila 8
- atTemas{20} es la fila 20 y un array de una dimensión
- Size of Array(atTemas) devuelve 100, que es el número de filas
- Size of Array(atTemas{17}) devuelve 50, que es el número de columnas de la fila 17
En el siguiente ejemplo, un puntero a cada campo de cada tabla en la base se almacena en un array de dos dimensiones:
C_LONGINT($vlUltimaTabla;$vlUltimoCampo)
C_LONGINT($vlNumeroCampo)
` Crear tantas filas vacías como tablas
$vlUltimaTabla:=Get last table number
ARRAY POINTER(<>apCampos;$vlUltimaTabla;0) `Array de dos dimensiones con X lineas y 0 columnas
` Para cada tabla
For($vlTabla;1;$vlUltimaTabla)
If(Is table number valid($vlTabla))
$vlUltimoCampo:=Get last field number($vlTabla)
` Definir los valores de los elementos
$vlNumeroColumna:=0
For($vlCampo;1;$vlUltimoCampo)
If(Is field number valid($vlTabla;$vlCampo))
$vlNumeroColumna:=$vlNumeroColumna+1
`Inserte una columna en la línea de la tabla en uso
INSERT IN ARRAY(<>apCampos{$vlTabla};$vlNumeroColumna;1)
`Asigne la "celda" con el puntero
<>apCampos{$vlTabla}{$vlNumeroColumna}:=Field($vlTabla;$vlCampo)
End if
End for
End if
End forEn la medida en que este array de dos dimensiones haya sido inicializado, puede obtener los punteros a los campos para una tabla particular de la siguiente forma:
` Obtener los punteros a los campos para la tabla en pantalla::
COPY ARRAY(<>apCampos{Table(Current form table)};$apCamposActuales)
` Inicializar los campos booleanos y fecha
For($vlElemento;1;Size of array($apCamposActuales))
Case of
:(Type($apCamposActuales{$vlElemento}->)=Is Date)
$apCamposActuales{$vlElemento}->:=Current date
:(Type($apCamposActuales{$vlElemento}->)=Is Boolean)
$apCamposActuales{$vlElemento}->:=True
End case
End forNota: como lo sugiere este ejemplo, las filas de un array de dos dimensiones pueden tener o no el mismo tamaño.
Producto: 4D
Tema: Arrays
