Кодировка русских символов

[Dеlphi]

C сервер php передаю данные в json формате
исходная строка: "abc абвг"
переданная: "abc \u0430\u0431\u0432\u0433"
что это за кодировка?
если в JavaSctipt написать

alert("abc \u0430\u0431\u0432\u0433");

то строка отобразиться правильно.
я думаю что UTF-16, как в delphi её перевести в читабельный вид?

[Serge_Bliznykov]

указывайте какая у Вас версия Delphi
(для работы с Unicode это важно)

[Dеlphi]

delphi XE Embarcadero® RAD Studio XE

[kangreon]

uses
  StrUtils;

function Convert(const InText: string): string;
var
  i, op: Integer;
  c: Char;
  t, n: string;
begin
  i := 1;
  op := 1;
  while PosEx('\u', InText, i) <> 0 do
  begin
    i := PosEx('\u', InText, i);
    t := t + Copy(InText, op, i - op);
    Inc(i, 2);
    n := Copy(InText, i, 4);
    op := i + 4;
    c := Char(StrToInt('$' + n));
    t := t + WideString(c);
  end;
  t := t + Copy(InText, op, Length(InText));
  Result := t;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Convert('abc \u0430\u0431\u0432\u0433');
end;

[Serge_Bliznykov]

Сообщение от kangreon

  Caption := Convert('abc \u0430\u0431\u0432\u0433');

kangreon, если не секрет, и что Вы получили в Caption?

[kangreon]

Сообщение от Serge_Bliznykov

kangreon, если не секрет, и что Вы получили в Caption?

В Caption получился русский текст.
abc абвг

В Delphi 7 пример не работает.

Для старых версий Delphi надо поменять Char на WideChar.

[Serge_Bliznykov]

Для старых версий Delphi надо поменять Char на WideChar.

ага. проверил. в Delphi 5 отработало на ура!

var ....  
   c: WideChar;
...
   c := WideChar(StrToInt('$' + n));

Коллега, Вы хотите сказать, что в новых версиях Delphi с WideChar не сработает?
Мне кажется наоборот, в Delphi версии >=2009 char по умолчанию как раз таки и является WideChar!