I must be missing something.
Take the ToArray code and change the object to a string.
Function tostringarray:String[](mylist:TList)
Local n=mylist.count(),arr:String[n],i:Int
For Local o:String=EachIn mylist
arr[i]=o
i:+1
Next
Return arr
End Function