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