List & Errors

[luke2012]

Hi to All,
Im trying to do a sub that implement a popup using the thedesolatesoul's library (Id) but I got an error (see the attached file).

Code :

Dim ArrRoles(1) As String
ArrRoles(0)="Cameriere"
ArrRoles(1)="Titolare"

Dim ret As Int
ret=Popup(ArrRoles,"Role")

Sub Popup (Arr, Title As String) As Int
Dim RolePop As id 'Id is a library that implement a popup
Dim lstChoice As List
Dim ret As Int

lstChoice.Initialize
lstChoice.AddAll(Arr)
ret = RolePop.InputList1(lstChoice,Title)
Return ret
End Sub

 

[thedesolatesoul]

Maybe it is this line

Sub Popup (Arr, Title As String) As Int

Change it to:

Sub Popup (Arr() as String, Title As String) As Int

What line do you get the error on?

 

[luke2012]

error line

lstChoice.AddAll(Arr)

 

[luke2012]

lstChoice.AddAll(Arr)

I think It is raised by the java compiler not by the B4A compiler.
In other words the B4A compiler say OK but the java compiler say "Error"

 

[kickaha]

lstChoice.AddAll is expecting a List, you are giving it a string array, hence the error.

 

[luke2012]

So
Array as String ("a","b","c") is the definition of a list in B4A ?

 

[kickaha]

Try this code

Dim ArrRoles(2) As String
ArrRoles(0)="Cameriere"
ArrRoles(1)="Titolare"

Dim ret As Int
ret=Popup(ArrRoles,"Role")

Sub Popup (Arr () As String, Title As String) As Int
Dim RolePop As id 'Id is a library that implement a popup
Dim lstChoice As List 
Dim ret As Int

lstChoice.Initialize
lstChoice.AddAll(Arr)
ret = RolePop.InputList1(lstChoice,Title)
Return ret
End Sub

 

[luke2012]

Thank you veru much ;-)

 

[luke2012]

The error is solved but the app crashes :-(

 

[luke2012]

The error is solved but the app crashes :-(

My final code is this :

Sub Activity_Create(FirstTime As Boolean)
Dim ret As Int
ret=shared.Popup(ArrRoles,"Ruolo")
Activity.LoadLayout("lyoHome")


'SQLEngine.Initialize(File.DirInternal,"pizzeria.db",False)
'SQLTableReadColumnNames (SQLEngine,"tab_pizze")
End Sub

*** shared is a code module that contains the Popup sub