[dimanche13]

Global list:TList = New TList
Type TType
	Field varr:int
	Function create_v:TType( _param:int ) 
		Local cre:TType = New TType
		cre.varr = _param
                       list.AddLast(cre)
		Return cre
	End Function
End Type
Local obj:TType=TType.create_v( 5 )