Does EB support 2 dimensional arrays?

[tescojez]

Hi people,

I'm quite new to EB (in fact haven't programmed for 10 years!). I have written some quite sophisticated scripts recently but am now struggling with multi dimensional arrays! I have used single level successfully.

I thought that the declaration would be something like:

dim array1(50,50) as string
dim array2(50,50) as double

And the usage would be:

For x = 1 to 50

     For y = 1 to 50

           array1(x,y) = "XXX"
           array2(x,y) = 99.99

     Next y

Next x

But it won't compile

Advice please.

 

[kohne]

The code compiles just fine for me in 7.11, tescojez. If you restart everything and drop this code into a brand new script, does it work? Maybe some other part of the script is keeping it from compiling? Have you declared x or y elsewhere in the same scope?

 

[IknowMe]

What error message is the compiler giving you?

Wow, I'm having amnesia and deja vu at the same time.
I think I've forgotten this before.

 

[tescojez]

Thanx so much Guys - got back tonight, (after a week away with no access! - long story but I work for the big T in the UK) I spotted the problem, corrected it and we are running fine. However - Secondary question - can I use arrays in a Dialogue box - Switching to additional Dialogue boxes when necessary?

 

[Skie]

You can use 1 dimensional arrays as a list in a dialog box. If you use a dialog function, you can load sub-dialog boxes. However, these dialog boxes are modal. So, you could see the original dialog box, but not interact with it.

Dim iWindow
Declare Sub GoGoDialog

Function FileDlgFunc(identifier$, action, suppvalue)
    FileDlgFunc = True
    Select Case action
    Case 2
        Select Case identifier$
        Case "ButCancel"
            FileDlgFunc = False
        Case "ButOK"
            GoGoDialog
        End Select
    End Select
End Function

Sub GoGoDialog
    iWindow = iWindow + 1
    Begin Dialog ThisDlg 100, 40, "My Window", .FileDlgFunc
       Text     5,  5, 90, 10, "Window Count: " & iWindow
       PushButton  5, 20, 40, 15, "OK", .ButOK
       CancelButton  50, 20, 40, 15, .ButCancel
    End Dialog
    Dim mydialog as ThisDlg
    On Error Resume Next
    Dialog mydialog
End Sub

Sub Main
    GoGoDialog
End Sub

 

[tescojez]

Thanx skie,

Sorry for the extremely long delay in replying to this - I got dragged off to a totally different project!

I used the principles in your code and I am having great success with it.