Code: Select all
Type tValE
sNameV As String
sValue As String
End Type
Type tEnum
sName As String
sType As String
sVal(Any) As tValE
End Type
Dim Shared en(Any) As tEnum
Dim as Integer e2 = -1, n2
Dim as String s2, s3
e2 += 1: ReDim Preserve en(e2)
220: n2 = UBound(en(e2).sVal) + 1: ReDim Preserve en(e2).sVal(n2)
221: en(e2).sVal(n2).sNameV = s2
222: en(e2).sVal(n2).sValue = s3
Tell me, please, what is the problem.Build error(s)
C:\FreeBasic\Compilier\fbc -s console "FbTemp.bas"
FbTemp.bas(220) error 3: Expected End-of-Line, found '.' in 'n2 = UBound(en(e2).sVal) + 1: ReDim Preserve en(e2).sVal(n2)'
Build error(s)