Sub Process_Globals
Type Tcliente (Nombre as String, Empresa as String, Direccion as String, Ciudad as String)
Dim Clientes As Tcliente
Dim ListaTotal As List
...........
..........
.........
Sub Activity_Create(FirstTime As Boolean)
ListaTotal.Initialize
Clientes.Initialize
..............
...............
...............
AddElemento ("Gustavo","Su Empresa", "Calle","En el mundo")
..............
.............
............
GrabarFichero
.............
...........
LeerFichero
Sub AddElemento(Nombre1 As String, Empresa1 As String, Direccion1 As String, Ciudad1)
Clientes.Nombre = Nombre1
Clientes.Empresa = Empresa1
Clientes.Direccion = Direccion1
Clientes.Ciudad = Ciudad1
ListaTotal.Add(Clientes)
End Sub
Sub GrabarFichero
Try
File.WriteList(File.DirDefaultExternal,"Clientes.dat", ListaTotal)
Catch
Log("Error al escribir fichero Clientes.dat")
End Try
End Sub
Sub LeerFichero()
If File.Exists(File.DirDefaultExternal, "Clientes.dat") Then
ListaTotal = File.ReadList(File.DirDefaultExternal, "Clientes.dat")
else
Log("Error al leer fichero Clientes.dat")
end if
End Sub