Как преобразовать AnsiString в UnicodeString в Delphi XE4

Question

exzample code:
var
  str1 : String;
  str2 : AnsiString;
  ....
  str2 := ....;
  str1 := String(str2);  

Я преобразовал, как указано выше, но это не сработало. Я обнаружил, что некоторые данные, потерянные в str1.Есть ли безопасный способ конвертировать AnsiString в UnicodeString?

Answer 1

Ваш код уже правильный. Он будет конвертировать из ANSI в UTF-16 без потери информации.

Таким образом, я прихожу к выводу, что информация теряется при назначении переменной AnsiString. Другими словами, ошибка в вашем коде содержится в .... часть вашего кода.

Вероятно, ошибка состоит в том, что данные и кодовая страница вашей переменной AnsiString не совпадают.