Sub Process_Globals 'Global Static
Dim Language As String
'...
End Sub
Sub Globals 'Local
Dim sJa, sNein, sEin, sAus As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
PrepareStrings
Dim cmdEin As Button
cmdEin.Initialize("cmd")
cmdEin.Text = sJa
'...
End Sub
Sub PrepareStrings()
If Language = "" Then
Dim r As Reflector
r.Target = r.RunStaticMethod("java.util.Locale", "getDefault", Null, Null)
Language = r.RunMethod("getLanguage")
End If
Select Case Language
Case "de": PrepareStringsDE
Case "it": PrepareStringsIT
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