Code: Select all
;#WHAT = 1;ok
#WHAT = 2;fail
;#WHAT = 3;ok
;#WHAT = 4;ok
;#WHAT = 5;fail
CompilerIf #WHAT = 1
Debug "-- Dim 2-Dimensional Array --"
Global Dim aX.d(10,10)
aX(0, 0) = 0.11
aX(10, 10) = 20.11
Debug StrD(aX(0,0))
Debug StrD(aX(10,10))
CompilerElseIf #WHAT = 2
Debug "-- ReDim 2-Dimensional Array --"
Global Dim aX.d(0,0)
ReDim aX(10,10) ;<-- FAIL
aX(0, 0) = 0.11
aX(10, 10) = 20.11
Debug StrD(aX(0,0))
Debug StrD(aX(10,10))
CompilerElseIf #WHAT = 3
Debug "-- Structure with ReDim 1-Dimensional Array --"
Structure my1DStruct
Array aX.d(0)
x.i
EndStructure
Global mys1.my1DStruct
ReDim mys1\aX(10)
mys1\aX(0) = 0.11
mys1\aX(10) = 10.11
mys1\x = 10
Debug StrD(mys1\aX(0))
Debug StrD(mys1\aX(10))
Debug Str(mys1\X)
CompilerElseIf #WHAT = 4
Debug "-- Structure with 2-Dimensional Array --"
Structure my2DStruct
Array aX.d(10,10)
x.i
EndStructure
Global mys2.my2DStruct
mys2\aX(0, 0) = 0.22
mys2\aX(10, 10) = 20.22
mys2\x = 20
Debug StrD(mys2\aX(0,0))
Debug StrD(mys2\aX(10,10))
Debug Str(mys2\X)
CompilerElseIf #WHAT = 5
Debug "-- Structure with ReDim 2-Dimensional Array --"
Structure my2DStruct
Array aX.d(0,0)
x.i
EndStructure
Global mys2.my2DStruct
ReDim mys2\aX(10, 10)
mys2\aX(0, 0) = 0.22
mys2\aX(10, 10) = 20.22
mys2\x = 20
Debug StrD(mys2\aX(0,0))
Debug StrD(mys2\aX(10,10))
Debug Str(mys2\X)
CompilerEndIf
Debug "-- DONE --"