盒子论坛 v2.1

如题，代码如下：

uses System.JSON.Serializers, System.Json, REST.JSON;

procedure TForm1.Button1Click(Sender: TObject);
  function toJson(): string;
  var jsobject: TJsonObject;
  begin
    jsobject := TJsonObject.Create;
    try
      jsobject.AddPair('cmd', 'cmd');
      jsobject.AddPair('uri', '快玩完了');
      Result := jsobject.ToJSON;
    finally
      jsobject.Free;
    end;
  end;
var S: string;
begin
  S := toJson();
  // {"cmd":"cmd","uri":"\u5FEB\u73A9\u5B8C\u4E86"}，中文乱码 unicode
  // 如何正确显示中文?
  AddLog(S);
end;
----------------------------------------------
riverbo

作者：

riverbo (riverbo)	★☆☆☆☆	-
	普通会员

2018/12/12 16:24:38

1楼：

找到如下方法：似乎可以用。
  function UnicodeToChinese(inputstr: string): string;
  var
    i: Integer;
    index: Integer;
    temp, top, last: string;
  begin
    index := 1;
    while index >= 0 do begin
      index := Pos('\u', inputstr) - 1;
      if index < 0 then begin
        last := inputstr;
        Result := Result + last;
        Exit;
      end;
      top := Copy(inputstr, 1, index); // 取出编码字符前的非 unic 编码的字符，如数字
      temp := Copy(inputstr, index + 1, 6); // 取出编码，包括 \u,如\u4e3f
      Delete(temp, 1, 2);
      Delete(inputstr, 1, index + 6);
      Result := Result + top + WideChar(StrToInt('$' + temp));
    end;

  end;

不知道，各位大侠有无其它更好方法？
----------------------------------------------
riverbo

作者：

helyna (Person)	★☆☆☆☆	-
	普通会员

2018/12/12 19:22:16

2楼：

Result := jsobject.ToString;
----------------------------------------------
-

作者：

riverbo (riverbo)	★☆☆☆☆	-
	普通会员

2018/12/13 9:04:13

3楼：

谢谢 @helyna，方法可行。
----------------------------------------------
riverbo

信息

登陆以后才能回复