Please take a look at the image and tell me how I can remove the (arraylist) and Brackets from the message box. The code is below.
B4X:
aList.Initialize()
Dim cursor As Cursor
cursor=SQL1.ExecQuery("select TeamName from GamePlay")
For i = 0 To cursor.rowcount -1
cursor.position = i
aList.add(cursor.getstring("TeamName"))
Next
Msgbox(aList & " have tied.","Tie Game")
btngameplay.Text = "Team " & SQL1.ExecQuerySingleResult("SELECT teamname FROM GamePlay where ID = '" & tid & "'") & " START"
Dim cursor As Cursor
Dim tienames As String
cursor=SQL1.ExecQuery("select TeamName from GamePlay")
For i = 0 To cursor.rowcount -1
cursor.position = i
tienames = tienames & cursor.getstring("TeamName") & " and "
Next
tienames = tienames.SubString2(0,(tienames.Length -4))
Msgbox(tienames & " have tied.","Tied Game")
Dim sb As StringBuilder
sb.Initialize
For i = 0 To cursor.rowcount -1
cursor.position = i
sb.Append(cursor.getstring("TeamName")).append(CRLF)
Next
Msgbox(sb.ToString,"Tied Teams")