SpiderBasic

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 --"