SuperStrict

Type mytype
Field myvar%
EndType

'приведение типов
Local temp:mytype = New mytype
Local temp2:Object = temp;
Local temp3:mytype = mytype(temp2)

Local list:TList = New TList

For Local i%=0 To 10
list.addlast(New mytype)
mytype(list.last()).myvar = i
Next

'как прокручивать TList
Local link:TLink = list.firstlink()

While link <> Null
Print "here we go : "+mytype(link.value()).myvar
link = link.nextlink()
Wend