Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
If File.Exists(File.DirRootExternal,"myconfig.cfg") Then
cfgGeneral = File.ReadMap(File.DirRootExternal,"myconfig.cfg")
Log("map size =" & cfgGeneral.Size)
Else
cfgGeneral.Initialize
End If
cfgGeneral.Put("string",S)
cfgGeneral.Put("integer",I)
cfgGeneral.Put("long",L)
cfgGeneral.Put("bool",B)
File.WriteMap(File.DirRootExternal,"myconfig.cfg",cfgGeneral)
End If
End Sub
Sub Activity_Resume
S = cfgGeneral.GetDefault("string","")
I = cfgGeneral.GetDefault("integer",0)
L = cfgGeneral.GetDefault("long",0)
B = cfgGeneral.GetDefault("bool",False)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
cfgGeneral.Put("string",S)
cfgGeneral.Put("integer",I)
cfgGeneral.Put("long",L)
cfgGeneral.Put("bool",B)
File.WriteMap(File.DirRootExternal,"myconfig.cfg",cfgGeneral)
End Sub