Code: Alles auswählen
Procedure.s ChrU(Codepoint.i)
If (Codepoint > $FFFF)
Result.s = " "
Codepoint - $10000
PokeU(@Result, $D800 + ((Codepoint >> 10) & $3FF))
PokeU(@Result + 2, $DC00 + (Codepoint & $3FF))
ProcedureReturn Result
ElseIf (Codepoint >= $0000)
ProcedureReturn Chr(Codepoint)
Else
ProcedureReturn ""
EndIf
EndProcedure
Debug ChrU($1F600) ;Smiley
Code: Alles auswählen
Sub emoji_UTS (codepoint As Int) As String
Dim bc As ByteConverter
Dim b() As Byte = bc.IntsToBytes(Array As Int(codepoint))
'
Return BytesToString(b, 0, 4, "UTF32")
End Sub
log("Mein Emoji: " & emoji_UTS(0x1F00)
Meine Frage ist (ich weiß, es ist sehr speziell), wie ich den obigen PB-Code abändern muss, damit ein Smiley in meiner App dargestellt wird.