Publicidad
EJEMPLO 3:
10 DIM SIZE%(NUMB%) : REM MATRIZ DE TAMAÑOS DE
CAMPOS.
20 FOR LOOP%=0 TO NUMB% : READ SIZE%(LOOP%):NEXT
LOOP%
30 DATA 9,10,12,21,41
.
.
.
120 DIM A$(NUMB%): REM MATRIZ DE LAS VARIABLES CON
FIELD.
130 OFFSET%=0
140 FOR LOOP%=0 TO NUMB%
150 FIELD #1,OFFSET% AS OFFSET%,SIZE%(LOOP%) AS
A$(LOOP%)
160 OFFSET%=OFFSET%+SIZE% (LOOP%)
170 NEXT LOOP%
Crea un campo de la misma forma que en el Ejemplo 2. Sin embargo, el
tamaño de los elementos varia en cada elemento. La declaración
equivalente sería:
FIELD #1,SIZE%(0) AS A$(0),SIZE%(1) AS
A$(1),...,SIZE%(NUMB%) AS A$(NUMB%)
97
Publicidad
