'Main
Sub Activity_Create(FirstTime As Boolean)
.....
CallSubDelayed2(Settings, "PrepareStrings", "")
Msgbox(Settings.sJa,"")
Activity.LoadLayout("StartView")
End Sub
---------------------------
'Settings
Sub PrepareStrings(Title As String)
If Language = "" Then
Dim r As Reflector
r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
Language = r.RunMethod("getLanguage")
Msgbox(Language,"")
End If
Select Case Language
Case "de": PrepareStringsDE
Case Else: PrepareStringsEN: Language = "en"
End Select
End Sub
Sub PrepareStringsDE
sJa = "Ja"
sNein = "Nein"
sEin = "Ein"
sAus = "Aus"
'...
End Sub
Sub PrepareStringsEN
sJa = "Yes"
sNein = "No"
sEin = "On"
sAus = "Off"
'...
End Sub