Hallo
ein kurzer Code, beim ersten Start alles OK, beim 2. Start Fehler Zeile 57
java.lang.IndexOutOfBoundsException: Invalid index 2, size is 0
Also beim 1.Start wird ja die Datei mit der List erszeugt, da geht alles, wenn die Datei vorhanden wird ja draus gelesen, da gehts nicht mehr. Keine Ahnung warum. Datei ist vorhanden und geschrieben.
Danke Heiko
ein kurzer Code, beim ersten Start alles OK, beim 2. Start Fehler Zeile 57
java.lang.IndexOutOfBoundsException: Invalid index 2, size is 0
Also beim 1.Start wird ja die Datei mit der List erszeugt, da geht alles, wenn die Datei vorhanden wird ja draus gelesen, da gehts nicht mehr. Keine Ahnung warum. Datei ist vorhanden und geschrieben.
B4X:
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Type Fahrer(ID As String, Name As String, Auto As String, Lap As String, LapTime1 As String, LapTime2 As String, BestLap As String, Bild As String)
Dim register As Fahrer
Dim FahrerList As List
End Sub
Sub Globals
Dim Button1 As Button
Dim Button2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If File.Exists (File.DirDefaultExternal, "fahrer.txt") = False Then
register.Initialize
FahrerList.Initialize
For i = 1 To 7
Dim register As Fahrer
register.ID = "#" & (i)
If i < 7 Then
register.Name = "Fahrer " & (i)
Else
register.Name = "GhostCar"
End If
FahrerList.Add(register)
Next
File.WriteList(File.DirDefaultExternal, "fahrer.txt", FahrerList)
Else
FahrerList = File.ReadList(File.DirDefaultExternal, "fahrer.txt")
register.Initialize
FahrerList.Initialize
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause(UserClosed As Boolean)
End Sub
Sub Button1_Click
Dim register As Fahrer
register = FahrerList.get(2) ' hier Fehler
Log("Name " & register.Name)
End Sub
Danke Heiko