delphi-Json里面的Unicode转中文

2020-09-04



uses System.JSON; const JsonUt8 ='"\u041f\u043e\u0438\u0441\u043a \u043f\u043e \u0444\u0430\u043c\u0438\u043b\u0438\u0438, \u0438\u043c\u0435\u043d\u0438 (\u043e\u0442\u0447\u0435\u0441\u0442\u0432\u0443"'; procedure TForm59.Button1Click(Sender: TObject); var LJSONValue: TJSONValue; begin LJSONValue:=TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(JsonUt8),0); Edit1.Text:=LJSONValue.ToString; end;





阅读146