delphi - Utf8ToString 和较旧的 Delphi 版本

Question

我想在旧版和新版 Delphi 中使用一些单元。自从最近的 Delphi 版本以来，Utf8Decode抛出一个已弃用的警告，建议切换到 Utf8ToString 。问题是旧版本的 Delphi 没有声明此函数，因此 {$IFDEF}我应该使用标签来定义 Utf8Decode 周围的包装器命名Utf8String (或者可能 Utf8ToWideString )？

或者换句话说:哪个版本是 Utf8ToString介绍一下？

Answer 1

我想我会用 $IF 来实现它，以便调用代码可以使用新的 RTL 函数，或者回退到旧的已弃用版本。由于新的 UTF8ToString 返回一个 UnicodeString，我认为可以安全地假设它是在 Delphi 2009 中引入的。

{$IF not Declared(UTF8ToString)}
function UTF8ToString(const s: UTF8String): WideString;
begin
  Result := UTF8Decode(s);
end;
{$IFEND}