Ошибка Ubound при получении получении максимального индекса от вложенного типа.
Код
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
Цитата
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)
Подскажите, пожалуйста, в чём проблема.