B4X:
[CODE]
Sub Globals
Type Utente(Codice As Int, User As String,Pwd As String, Email As String)
End Sub
Sub BSignup_Click
Dim Rec As Utente
Rec.User=Nome
Rec.Email=Email
Rec.Pwd=Pwd
WriteRec(Rec)
StartActivity(Login)
End Sub
Sub WriteRec( rec As Utente )
Dim f As RandomAccessFile
f.Initialize(File.DirRootExternal,"Users", False)
Dim RecNumber As Int = UltimoCodice
rec.Codice=RecNumber
Log("RECNUM" & RecNumber & " Codice " & rec.Codice & " user " & rec.User)
f.WriteObject(rec, False, RecNumber)
Log("rec " & rec & "RecNumber " & RecNumber)
f.Close
End Sub
Sub ReadRec
Dim f As RandomAccessFile
Dim Line As String
Dim DataRecord As Utente
f.Initialize(File.DirRootExternal, "Users" , True)
Do While (f.CurrentPosition < f.Size )
Log("Current " & f.CurrentPosition)[/INDENT]
49 DataRecord=f.ReadObject(f.CurrentPosition)
Line=DataRecord.Codice & " " & DataRecord.User & " " & DataRecord.Pwd & " " & DataRecord.Email
Log(Line)
ListView2.AddSingleLine(Line)[/INDENT]
Loop
f.Close
End Sub
Error Occurrd on Line: 49
non riesco a capire dove è l'errore[/CODE]
Last edited: