bei einem aktuellen Projekt benötige ich die Unterstützung mehrerer Sprachen.
Gibt es da ein bestimmtes Konzept, wie man sowas umsetzt?
Ich würde alle Sprachvarianten mittels Data.s in eine Datasection legen und diese
mit Read.s in eine Map lesen, je nachdem welche Sprache ausgewählt wurde.
Als MapKey() einen iterativen Wert.
Beim Erstellen der Gadgetgets verwende ich dann die Map mit dem jeweiligen key.
Ist das eine sinnvolle Lösung oder macht man das anders?
Code: Alles auswählen
Global NewMap L.s()
Procedure Init_Language (lang.s = "de-DE")
Protected de.s, en.s, i
Restore Languages
Repeat
i + 1
Read.s de
Read.s en
If de <> "#"
Select lang
Case "de-DE" : L(Str(i)) = de
Case "en-EN" : L(Str(i)) = en
EndSelect
EndIf
Until de = "#"
EndProcedure
Init_Language("en-EN")
OpenWindow(0, 10, 10, 800, 600, L("1"))
DataSection
Languages:
Data.s "Deutsch", "English"
Data.s "#"
EndDataSection
Wie macht ihr das?
Ciao Dige