Unicode Chr()
Verfasst: 10.06.2008 19:22
Da die Funktion Chr() nur mit ASCII funktioniert, kann man damit keine
Unicode-Werte in einen String umwandeln.
Hier ein kleiner Code um das doch zu ermöglichen:
Damit kann man Unicode-Zeichen bis $FFFF benutzen. PB-Strings scheinen
im Unicode-Modus intern mit 2 Byte pro Zeichen zu arbeiten.
[X] Create unicode executable
Unicode-Werte in einen String umwandeln.
Hier ein kleiner Code um das doch zu ermöglichen:
Code: Alles auswählen
CompilerIf #PB_Compiler_Unicode
Procedure.s uChr(char)
char$ = " "
PokeW(@char$,char&$FFFF)
ProcedureReturn char$
EndProcedure
Macro Chr(x)
uChr(x)
EndMacro
CompilerEndIf
A$ = "test "+Chr($20AC)+" "+Chr($FB30)+" "+Chr(23)+" "+Chr(70000)+" "+Chr($F000)
MessageRequester("Title",A$)
im Unicode-Modus intern mit 2 Byte pro Zeichen zu arbeiten.
[X] Create unicode executable