Error when using an array of types

[zurpa]

Hi,

could someone help me with this :

I'm using a array of type :
Sub Globals
Dim Type(Dep, Arr, Fic1, Fic2, Tra) Depart (1)

Then, in a procedure, I'm reading the size of the array :
NbDepart = FileRead (c1)

I'm sizing the array :
Dim Depart (NbDepart)

But then I've got an error when trying :
Depart(0).Dep = 1

---
I've tried to put a fixed size on the array of type and it works.
I've tried to add 1 to NbDepart, to be sure it's concerted to an integer but it does not work.

Any idea ? Is this a bug ?

[taximania]

Once you've declared a Global variable, you can't change its size

[Erel]

One dimension array-structures are actually two dimension arrays where the second rank value equals to the number of fields.
You must use the array syntax to resize the structure:

Sub Globals
    Dim Type(Dep, Arr, Fic1, Fic2, Tra) Depart (0)
End Sub

Sub App_Start
    Dim Depart(NbDepart,5)
    Depart(0).dep = 13331
    Depart(1).Tra = 321
End Sub

Once you've declared a Global variable, you can't change its size

You can resize an array any number of times during a program (resizing an array will clear all its records).

[Cableguy]

Originally Posted by taximania

Once you've declared a Global variable, you can't change its size

Not true...
I have used globals before, and have their initial value (set in the globals sub) altered in other subs....

I'm thinking more of a file related error...

NbDepart = FileRead (c1)

Have you open the file for reading?
Are you sure you aren't getting an empty string?

EDIT: Erel beat me to the clock and as always he knows best...

[taximania]

Originally Posted by taximania

Once you've declared a Global variable, you can't change its size

I meant a Global Array.
I stand corrected

But: I'm even more confused now

Dim Depart(NbDepart,5)
    Depart(0).dep = 13331

Doesn't that make an Array of NbDepart(5)

So shouldn't it be NbDepart(0).dep = 13331 etc

[Erel]

NbDepart is an integer. We like to resize Depart which is an array of structures.
As I wrote, an array of structures is actually a two dimensions array.
So:
Depart(0).Fic1 = 3 equals to Depart(0,2) = 3
And when we need to resize Depart we write:
Dim Depart(100,5) or Dim Depart(NbDepart,5) where 5 is the number of fields.