#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