Конструкция:
Type TGenericEnumerator {}
EndType
Тоже работает
Равно как и:
Type TGenericEnumerator {ololo}
EndType
И даже так:
Type TGenericEnumerator {DebugLog = "oshshs" tatata = 123 }
EndType
Эксперименты с отражением:
Framework brl.basic
Import brl.reflection
Type TGenericEnumerator { test = 1 }
Field test:Int
EndType
Local obj:TGenericEnumerator = New TGenericEnumerator
Local id:TTypeId = TTypeId.ForName("TGenericEnumerator")
Print "Fields: "
For Local fld:TField=EachIn id.EnumFields()
Print fld.Name() + ":" + fld.TypeId().Name() + "=" + fld.Get(obj).ToString()
Next
Print "Methods: "
For Local mth:TMethod = EachIn id.EnumMethods()
Print mth.Name()
Next
Результат:
Fields:
test:Int=0
Methods:
New
Delete
Откуда исходник?