When click the button then stopped the application.
not can find my problem.
Process_Globals
Dim index As Object
Globals
Dim Namen As ListView
Dim svN As SearchView
Dim Namen_ListeGross,Namen_ListeKlein,NamenList As List
not can find my problem.
Process_Globals
Dim index As Object
Globals
Dim Namen As ListView
Dim svN As SearchView
Dim Namen_ListeGross,Namen_ListeKlein,NamenList As List
B4X:
Sub searchNamen_Click
If MarkerGeladen=False Then
NamenList.Initialize
Namen_ListeGross = File.ReadList(File.DirAssets,"Flurnamen_gross.txt")
Namen_ListeKlein = File.ReadList(File.DirAssets,"Flurnamen_klein.txt")
Dim files As List
Dim PunkteFolder As String
Punkte.Initialize("Punkte")
PunkteFolder = PfadPunkte
If File.Exists(PunkteFolder, "") = False Then
ToastMessageShow("Ordner AppProbe nicht gefunden: " & CRLF & PunkteFolder, True)
Return
End If
files = File.ListFiles(PunkteFolder) 'get all files in this folder
If files.Size >0 Then
For i = 0 To files.Size - 1
Punkte.AddSingleLine(files.Get(i))
Next
End If
For j = 0 To files.Size - 1
Dim listtemp As List
listtemp = File.ReadList(PfadPunkte,Punkte.GetItem(j))
Next
NamenListe=listtemp
MarkerGeladen=True
Else
Namen.Initialize("Namen")
Namen.AddTwoLines("Suchen","Name eingeben")
For i = 1 To Namen_ListeGross.Size-1
Dim PointsTempG() As String = Regex.Split(",",Namen_ListeGross.Get(i))
Namen.AddTwoLines(PointsTempG(2),PointsTempG(0)&","&PointsTempG(1))
NamenList.Add(PointsTempG(2))
Next
For i = 1 To Namen_ListeKlein.Size-1
Dim PointsTempK() As String = Regex.Split(",",Namen_ListeKlein.Get(i))
Namen.AddTwoLines(PointsTempK(2),PointsTempK(0)&","&PointsTempK(1))
NamenList.Add(PointsTempK(2))
Next
For i = 1 To Punkte.Size-1
Dim PointsTemp() As String = Regex.Split(",",NamenListe.Get(i))
Namen.AddTwoLines(PointsTemp(2),PointsTemp(0)&","&PointsTemp(1))
NamenList.Add(PointsTemp(2))
Next
Activity.AddView(Namen, 0, 50dip, 100%x, 100%y-100dip)
ToastMessageShow(Namen.Size & " Flurnamen gefunden", True)
End If
End Sub
Sub svN_ItemClick(Value As String)
Msgbox("Ausgewählte Flurname: " & Value, "")
End Sub
Sub Namen_ItemClick (Position As Int, Value As Object)
If Position=0 Then
svN.Initialize(Me, "svN")
svN.AddToParent(Activity, 0, 0, 200dip, 300dip)
index=svN.SetItems(NamenList)
svN.SetIndex(index,NamenList)
Namen.RemoveView
' svN.Initialize(Me, "svN")
Else
Namen.RemoveView
Dim PointsTemp() As String = Regex.Split(",",Value)
Msgbox("Ausgewählte Flurname: " & Value, "")
End If
End Sub
Last edited: