'ListFromArray
'05-sept-2009

SuperStrict

Local list:TList=New TList
Local sarray:String[] 'a STRING array
Local oarray:Object[] 'an OBJECT array

ListAddLast list,"One"
ListAddLast list,"Two"
ListAddLast list,"Three"
ListAddLast list,"Four"

'or list.addlast "One" '<--- OOP equivalent

sarray=String[](ListToArray(list)) 'note the casting to STRING[] has no effect...
oarray=ListToArray(list) 'or list.ToArray()

Print "String Array contents..."+sarray.length+" items"
Print "Object Array contents..."+oarray.length+" items"

Print "Reading String Array"
For Local item:String=EachIn sarray
	Print item
Next
Print 
Print "Reading Object Array"
For Local item:String=EachIn oarray
	Print item
Next

'ListToArray
'User Type

Type user
	Field name:String

	Method Create:user(_no$)
		name=_no
		Return Self
	End Method
	
End Type

Local list:TList=New TList
Local array:user[]	'an array of user-type

ListAddLast list,New user.Create("Jim")
ListAddLast list,New user.Create("Alan")
ListAddLast list,New user.Create("Bit")

Print "Items in the list :"+CountList(list)
'you CAN cast from OBJECT to USER-TYPE
array=user[](ListToArray(list)) 'this works

Print "Items in the array :"+array.length

For Local it:user=EachIn array
	Print it.name
Next