ещё один интересный факт...
Type TInteger
Field x1$;24
Field x2%
End Type
Type TInteger2
Field x1%;24
Field x2%
Field x3#
End Type
Type TInteger3
Field x1%;24
Field x2%
Field x3$
Field x4#
End Type
For counter = 1 To 5
CreateImage(150,10)
i3.TInteger3=New TInteger3;порядок обьявления поменяйте
i2.TInteger2=New TInteger2;пару раз для того чтобы
i.TInteger=New TInteger;понять чтоя хочу показать
i3\x3="dasdasdasd"
Next
Print ""
Print "Type1 "
Print " "
For i.TInteger=Each TInteger
Print Int (i)
Next
Print ""
Print "Type2 "
Print ""
For i2.TInteger2=Each TInteger2
Print Int (i2)
Next
Print ""
Print "Type3 "
Print ""
For i3.TInteger3=Each TInteger3
Print Int (i3)
Next
ПС. видим вот что - (как уже замечалось выше)20- поидее указатель(или что там) на сам обьект структы + 4 на каждое поле в типе в независимости от типа
ПС2. может кто уже и сам это сделал просто хочу чтобы это осталось в этом топике, для полного раскрытия темы