Code: Alles auswählen
lang.pb
z.B.
Global lang_Name$ = "Name"
Global lang_MyName$ = "Der Name"
output.pb
z.B debug lang_Name$ + lang_MyName$
was ist mit map gemeint?Beispiel:Maps (auch bekannt als Hashtable oder Dictionary; in Deutsch auch "Liste, Tabelle, Verzeichnis" genannt) sind Strukturen für das Speichern von Daten, welche entsprechend Ihren Bedürfnissen dynamisch zugewiesen werden. Es handelt sich dabei um eine Sammlung von Elementen (die Daten, die Sie speichern möchten) und jedes Element ist vollkommen unabhängig von den anderen. Sie können soviele Elemente hinzufügen, wie Sie möchten (oder soviele, wie in den Speicher Ihres Computers passen), und greifen mittels einem Key (Schlüssel) wieder darauf zu. Diese Art der Datenspeicherung ist sehr nützlich, wenn Sie schnellen Zugriff auf ein beliebiges Element benötigen. Die Einfüge-Reihenfolge der Elemente wird beim Verwenden einer Map nicht gespeichert (anders als bei einer @library"LinkedList" "LinkedList") und daher kann sie auch nicht sortiert werden.
Bevor Sie mit Maps arbeiten können, müssen Sie diese zuerst deklarieren. Dies kann mit dem Schlüsselwort NewMap erfolgen. Strukturen werden auch oft verwendet, um mehrere Daten in einem einzelnen Element zu speichern.
Code: Alles auswählen
NewMap Language.s()
Language("File") = "Datei"
Language("Open") = "Öffnen"
Debug Language("File")
Debug Language("Save")
Debug Language("Open")
Hast du dir das "aus dem vorgeschlagenen Link" überhaupt mal angeschaut?STARGÅTE hat geschrieben: das eignet sich nun besser als das Array oder eine LinkedList aus dem vorgeschlagenen Link, da dies bei vielen Wörtern so langsam ist.
Code: Alles auswählen
Procedure.s Language(Group$, Name$)
Static Group.l ; for quicker access when using the same group more than once
Protected String$, StringIndex, Result
Group$ = UCase(Group$)
Name$ = UCase(Name$)
String$ = "##### String not found! #####" ; to help find bugs
If LanguageGroups(Group)\Name$ <> Group$ ; check if it is the same group as last time
For Group = 1 To NbLanguageGroups
If Group$ = LanguageGroups(Group)\Name$
Break
EndIf
Next Group
If Group > NbLanguageGroups ; check if group was found
Group = 0
EndIf
EndIf
If Group <> 0
StringIndex = LanguageGroups(Group)\IndexTable[ Asc(Left(Name$, 1)) ]
If StringIndex <> 0
Repeat
Result = CompareMemoryString(@Name$, @LanguageNames(StringIndex))
If Result = 0
String$ = LanguageStrings(StringIndex)
Break
ElseIf Result = -1 ; string not found!
Break
EndIf
StringIndex + 1
Until StringIndex > LanguageGroups(Group)\GroupEnd
EndIf
EndIf
ProcedureReturn String$
EndProcedure
