Delphi - 在 Excel 中添加特殊字符

Question

我正在尝试在 Excel 电子表格中插入一个符号 - 白色方 block (Unicode 25A1)，但不断出现错误:

我尝试以下无济于事:

1. WorkSheet.Cells[CurrRow,CurrCol].Formula := '=ChrW(&H25A1)';  

2. WorkSheet.Cells[CurrRow,CurrCol].Formula := '=Char(25A1)';  

运行宏也无济于事，因为它说'？

真的希望有人可以帮助我

Answer 1

Excel 的 COM 接口(interface)是一个 Unicode API。 Excel 在内部使用 Unicode 字符串。只需在 Delphi WideString 中将您的特殊字符传递给 Excel。您不需要 Excel 公式。

WorkSheet.Cells[CurrRow,CurrCol].Value := WideString(#$25A1);

如果您使用的是 Unicode 版本的 Delphi(即 2009 或更高版本)，那么如果您将源代码设为 UTF-8 文件，则可以在源代码中包含 Unicode 字符。

WorkSheet.Cells[CurrRow,CurrCol].Value := WideString('□');

如果您开始添加非 ANSI 字符，IDE 会将您的源文件转换为 UTF-8。