k.besedinДоброго дня мудрецы!
Использую класс XSuperObject для перевода класса в json строку и обратно.
Все бы ничего, но при вызове метода AsJSON с кириллицей json строка становится такой:
'"Поиск по фамилии, имени (отчеству"' к примеру.
Как сделать так, чтобы она отображалась в нормальной кодировке с кириллицей и нормально работала при вызове AssignFromJSON с этой кодировкой?
Сие поведение скорее всего правильно, ибо результат пригоден для использования в парсерах, принимающих хоть юникодные, хоть ANSIшные строки. Да и какая нафик разница, как оно там в файле закодировано?
Отчего так
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
function ChrToUTF16(const ChrCode: Integer): String; inline;
begin
Result := '\u' +
HexMap[ChrCode shr 12] +
HexMap[(ChrCode shr 8) and 15] +
HexMap[(ChrCode shr 4) and 15] +
HexMap[ChrCode and 15];
end;
function StrToUTF16(const Str: String): String;
var
Tmp: PWideChar;
begin
if Str = #0 then Exit(ChrToUtf16(0));
Result := '';
if Str = '' then
Exit
else
Tmp := PWideChar(Pointer(Str));
while Tmp^ <> #0 do
begin
case Tmp^ of
#1..#31: case Tmp^ of
#8 : Result := Result + '\b';
#9 : Result := Result + '\t';
#10: Result := Result + '\n';
//#11: Result := Result + '\v';
#12: Result := Result + '\f';
#13: Result := Result + '\r';
else
Result := Result + ChrtoUTF16(Ord(Tmp^))
end;
#34{"}: Result := Result + '\"';
#92{\}: Result := Result + '\\';
#127..#65535: Result := Result + ChrtoUTF16(Ord(Tmp^));
else
Result := Result + Tmp^;
end;
Inc(Tmp);
end;
end;
А если тебе все же хочется "красиво", то просто закомментируй эту строчку:
1.
#127..#65535: Result := Result + ChrtoUTF16(Ord(Tmp^));
Или измени диапазон #127..#65535 так, чтобы кириллица в него не попадала.
