196
Programmazione (Gambas 2) / Re: Dichiarazioni di array globali
« il: 31 Marzo 2012, 12:56:02 »
Grazie per le risposte,
dunque, le dichiarazioni iniziali sono, e si vede nella citazione, all'inizio della main.class, mentre il resto del codice è inserito in un una procedura a se stante e non in un form open, ma questo non penso che possa rappresentare un problema, una diversità che invece può essere sostanziale è la dichiarazione dei puntatori: io infatti li avevo dichiarati integer mentre vedo che sono dichiarati come byte... in totale il mio codice è così:
Questo è il codice interessato, non lo trovo tanto distante da quello che avete postato voi, il problema e che persiste il malfunzionamento che vi ho segnalato.
Ciao a tutti.
dunque, le dichiarazioni iniziali sono, e si vede nella citazione, all'inizio della main.class, mentre il resto del codice è inserito in un una procedura a se stante e non in un form open, ma questo non penso che possa rappresentare un problema, una diversità che invece può essere sostanziale è la dichiarazione dei puntatori: io infatti li avevo dichiarati integer mentre vedo che sono dichiarati come byte... in totale il mio codice è così:
Codice: gambas [Seleziona]
PUBLIC clienti1$ AS String[] '##### 1° array dati clienti - Nome ditta
PUBLIC clienti2$ AS String[] '##### 2° array dati clienti - Dati ditta
PUBLIC tot_cli AS Integer '##### numero totali di clienti visualizzati
PUBLIC SUB _new()
assegnazioni()
END
PUBLIC SUB assegnazioni()
LETTURA_FILE_CLIENTI(tot_cli)
END
PUBLIC PROCEDURE LETTURA_FILE_CLIENTI(num AS Integer)
DIM clienti1_tmp$ AS String '##### Variabile navetta - Nome ditta
DIM clienti2_tmp$ AS NEW String[] '##### Array navetta - Dati ditta
DIM i AS Integer '##### puntatore numero del record
DIM j AS Integer '##### Puntatore numero del campo
DIM y AS Integer '##### Puntatore alternativo numero del record
DIM num_rec AS Integer '##### Numero totale dei record
clienti1$ = NEW String[num]
clienti2$ = NEW String[num, 6]
clienti2_tmp$ = NEW String[6]
FOR i = 0 TO num_rec - 1
clienti1$[y] = clienti1_tmp$
FOR j = 0 TO 5
clienti2$[y, j] = clienti2_tmp$[j]
NEXT
y = y + 1
NEXT
END
Questo è il codice interessato, non lo trovo tanto distante da quello che avete postato voi, il problema e che persiste il malfunzionamento che vi ho segnalato.
Ciao a tutti.