Sub Activity_Create(FirstTime As Boolean)
Dim list_Berge() As String
Dim str_array As String
Dim List1 As List
List1 = File.readlist(File.DirAssets,"BergListe.txt")
'Datei ist vorhanden!, hab nur die Abfrage & Behandlung noch nicht fertig
'Auslesen funktioniert so weit ich im Debugger sehen konnte auch
'in der Datei ist Pro Zeile 1 Wert drin
'hier soll nun aus der Liste ein Array werden (irgendwie unterscheiden die sich ja, obwohl es so ziemlich das gleiche ist...
For i = 0 To List1.Size-1
str_array = List1.Get(i)
list_Berge(i)=str_array
Next
'so hatte es funktioniert
'list_Berge=Array As String ("","Babisnauer Pappel", _
' "Adlerstein")
'Zuweisung...
lbl_vomBerg.SetItems(list_Berge)
'.....