delphi - 如何将 Unicode UTF-32(杂项符号和象形文字)分配(显示)给 TLabel.Caption？

Question

我想在 TLabel 标题 (lblLocation) 中显示 📍 ( U+1F4CD - round pushpin )，显示类似以下内容:"📍南非比勒陀利亚”，但我总是得到一个奇怪的 block 状东西。

我尝试过将字符直接粘贴到我的源代码中，但这也导致了一个奇怪的类似 block 的东西(我的源代码是UTF-8编码的)。

粘贴📍之前:

粘贴📍后立即:

我也尝试过使用 ConvertFromUtf32()，根据 How to convert unicode codepoint like U+1F4DB to char? .

lblLocation.Caption := lblLocation.Caption + ConvertFromUtf32(StrToInt('$1F4CD'));

运行上面的代码会在 TLabel 的标题中给出以下内容:

Answer 1

您尝试显示的字符在您使用的字体中没有字形。您需要找到一种具有该字符字形的字体。