使用 FreePascal 在 Lazarus 中将 AnsiString 转换为 UnicodeString

Question

我在这里找到了类似的主题，但没有一个能解决我的问题，所以我在一个新线程中提问。

几天前，我将保存我正在开发的应用程序的首选项的格式从 INI 更改为 JSON。

我为此使用 jsonConf 单元。

我用来在文件中保存键值对的代码示例如下所示。

Procedure TMyClass.SaveSettings();
var
  c: TJSONConfig;
begin
  c:= TJSONConfig.Create(nil);
  try
    c.Filename:= m_settingsFilePath; 
    c.SetValue('/Systems/CustomName', m_customName);
  finally
    c.Free;
  end;
end;

在我的代码中，m_customName 是一个 AnsiString 类型变量。 TJSONConfig.SetValue 过程要求键和值都是 UnicodeString 类型。应用程序编译正常，但我收到这样的警告

Warning: Implicit strung type conversion from "AnsiString" to "UnicodeString". 

一些消息警告说存在潜在的数据丢失。

当然，我可以将所有内容都更改为 UnicodeString 类型，但这太冒险了。到目前为止，通过忽略这些警告，我还没有看到任何问题，但它们一直出现，并且可能会在不同的 PC 上引起问题。

我该如何解决这个问题？

Answer 1

为了避免警告，请进行显式转换，因为这样可以告诉编译器您知道自己在做什么（我希望...）。如果 c.SetValue 预期类型是 Unicodestring (UTF16)，则应将 m_customname 声明为 string，除非有充分的理由采取不同的做法（见下文），否则您可能会触发不需要的内部转换。

默认情况下，Lazarus 中的 string 是 UTF8 编码的。因此，您可以使用函数UTF8Decode() 将UTF8 转换为Unicode，或者使用UTF8ToUTF16()（单位LazUtf8）。

var
  c: TJSONConfig;
  m_customName: String;
...
  c.SetValue('/Systems/CustomName', UTF8Decode(m_customName));

您在上面说键值对在文件中。然后转换取决于文件的编码。通常我在一个好的文本编辑器中打开文件并在某处找到编码 - 例如，NotePad++ 会在状态栏的右上角显示编码的名称。假设编码是代码页 1252 (Latin-1) 的编码。这些是 ansistrings，因此，您可以将从文件中读取的字符串声明为 ansistring。因为 UTF8 字符串在 Lazarus 中很常见，所以没有从 ansistring 到 Unicode 的直接转换，您必须先转换为 UTF8。在单元 lconvencoding 中，您会发现各种编码之间的许多转换例程。选择CP1252toUTF8()转为UTF8，再应用UTF8Decode()最终得到Unicode。

var
  c: TJSONConfig;
  m_customName: ansistring;
...
  c.SetValue('/Systems/CustomName', UTF8Decode(CP1252ToUTF8(m_customName)));

FreePascal 编译器 3.0 可以使用带有预定义编码的字符串自动处理许多此类转换。但我认为显式转换非常清楚地看到正在发生的事情。而且 fpc3.0 仍然会发出您想要避免的警告...