在 Delphi 中将宽字符代码点的十六进制字符串表示形式转换为宽字符

问题描述

我在将编辑框中的文本转换为 WideChar 时遇到问题。这被用于打印表情符号字符的代码中。

如果我手动设置如下所示的 WideChar 值

Emoji[1] := WideChar($D83D);
Emoji[2] := WideChar($DC4D);

但我希望能够通过如下编辑框设置十六进制代码

StringToWideChar(edit1.text,@wc1,Length(edit1.text));
StringToWideChar(edit2.text,@wc2,Length(edit2.text));
Emoji[1] := wc1;
Emoji[2] := wc2;

wc1 和 wc2 被定义为 WideChar。编辑框包含与上面硬编码相同的值。该代码导致输出空白，因此转换有问题。

我做错了什么？感谢您的帮助。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）