Sub Process_Globals
..
Private tvDevices As TreeView
Dim tvZug(100) As CheckboxTreeItem
Private lZug As List
..
end sub
Sub Zugehoerigkeiten_laden
Try
If File.Exists(File.DirApp, "Zugehoerigkeiten.eis") Then
lZug=File.ReadList(File.DirApp, "Zugehoerigkeiten.eis")
Else
lZug.Initialize
lZug.Add("")
End If
Catch
Fehler_senden("Main, Zugehoerigkeiten_laden, " & LastException.Message & CRLF)
End Try
End Sub
Private Sub ShowDevices
Try
tvDevices.Root.Children.Clear
Zugehoerigkeiten_laden
tvZug(0).Initialize("tvZug", "A-Z") 'here is the exception!!!!!!!'
tvDevices.Root.Children.Add(tvZug(0))
.....
.....