如何在Delphi XE5上将字符串编码为UTF8 WideString？

Question

如何在Delphi XE5上将string编码为UTF8 string？当我尝试将UTF8编码的字符串转换为string类型时，我会丢失UTF8编码：

Result := string(Utf8Encode(ASource));

Answer 1

从重复的问题：

      aUTF8Str := UTF8Encode(aClientDataSet.Fields[i].DisplayLabel);
      SetCodePage(aUTF8Str, 0, False);
      aUnicodeStr := UnicodeString(aUTF8Str);
      Result := aUnicodeStr;