Saving and reading data (.ini file)

Sub Process_Globals

End Sub

Sub Globals

   Dim Label1 As Label
   Dim Label2 As Label
   
   Dim clasoft As Int
   Dim maxtoweight  As Int
   Dim maxldweight  As Int
   Dim pallpos16  As Int
   
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("TEST")
  
    clasoft = 1
    maxtoweight = 2
    maxldweight = 3
    pallpos16 = 4
   
    WriteTextWriter
    ReadTextReader
   
End Sub

Sub WriteTextWriter

'This should write the programdata when the program ends.
       
   Dim TextWriter1 As TextWriter
    TextWriter1.Initialize(File.OpenOutput(File.DirRootExternal, "Text.txt", False))
    
        TextWriter1.WriteLine(clasoft)
   TextWriter1.WriteLine(maxtoweight)
   TextWriter1.WriteLine(maxldweight)
   TextWriter1.WriteLine(pallpos16)
      
    TextWriter1.Close
   
End Sub

Sub ReadTextReader

'This should read the saved programdata on startup.

    Dim TextReader1 As TextReader
   TextReader1.Initialize(File.OpenInput(File.DirRootExternal, "Text.txt"))
    Dim line As String
    line = TextReader1.ReadLine    
    
   Do While line <> Null
    Log(line) 
    line = TextReader1.ReadLine
      clasoft = TextReader1.ReadLine
      maxtoweight = TextReader1.ReadLine
      maxldweight =  TextReader1.ReadLine
      pallpos16 = TextReader1.ReadLine
   Loop 
   
   TextReader1.Close   
        
   label1.Text = clasoft & maxtoweight & maxldweight & pallpos16 
   
End Sub

   Dim list1 As List
   list1.Initialize
   list1.Add(clasoft)
   list1.Add(maxtoweight)
   ...
   File.WriteList(File.DirRootExternal, "Text.txt", list1)
   
   'reading
   Dim list2 As List
   list2 = File.ReadList(File.DirRootExternal, "Text.txt")
   clasoft = list2.Get(0)
   maxtoweight = list2.Get(1)
   ...