а еще при создании елемента типа резервируется 20 байт ??
; целый тип
Type TInteger
Field x1%;24
End Type
; тип с запятой
Type TFloat
Field x1#;24
End Type
; стороковий тип
Type TString
Field x1$;24
End Type
; пустой тип
Type TVoid
End Type
For counter = 1 To 5
i.TInteger=New TInteger
Next
For counter = 1 To 5
f.TFloat = New TFloat
Next
For counter = 1 To 5
s.TString = New TString
Next
For counter = 1 To 5
v.TVoid = New TVoid
Next
val = 0
Print "TInteger: "
For i.TInteger=Each TInteger
Print Int(i)
Next
Print "TFloat: "
For f.TFloat=Each TFloat
Print Int(f)
Next
Print "TString: "
For s.TString=Each TString
Print Int(s)
Next
Print "TVoid: "
For v.TVoid=Each TVoid
Print Int(v)
Next
WaitKey()