PokeC() funktioniert nicht

[NicTheQuick]

Wie man im Beispiel sieht, gibt 'PeekC()' den richtigen Wert aus, wenn ihn
vorher per Pointer zuweiset. mit 'PokeC()' funktioniert es aber nicht.

Unicode einschalten nicht vergessen!

Code: Alles auswählen

Define a.l, *c.Character

Debug "Geht nicht"
*c = @a
PokeC(*c, 12345)
Debug PeekC(*c)

Debug "Geht"
*c\c = 12345
Debug PeekC(@a)
Debug *c\c

[Andreas_S]

Kann das Problem bestätigen!

PokeC ist anscheinend nicht Unicode fähig:

Code: Alles auswählen

Define a.l, *c.Character

Debug "Geht nicht"
*c = @a
PokeC(*c, 12345)
Debug PeekC(*c)
Debug 12345 % 256

Debug "Geht"
*c\c = 12345
Debug PeekC(@a)
Debug *c\c

Durch das Modulo sieht man das PokeC den zu schreibenden Wert auf 1 Byte castet...