delphi Utf8ToAnsi 空值

根据提供的引用内容，以下是一个解决Delphi中Utf8ToAnsi转换编码为空值的函数示例：

function DecodeUtf8Str(const S: UTF8String): WideString;
var
  lenSrc, lenDst: Integer;
begin
  lenSrc := Length(S);
  if (lenSrc = 0) then
    Exit;
  lenDst := MultiByteToWideChar(CP_UTF8, 0, Pointer(S), lenSrc, nil, 0);
  SetLength(Result, lenDst);
  MultiByteToWideChar(CP_UTF8, 0, Pointer(S), lenSrc, Pointer(Result), lenDst);
end;

该函数将一个UTF8编码的字符串转换为Ansi编码的字符串。如果输入的UTF8字符串为空，则函数会直接返回空字符串。