Can't assign a Unicode String ?

[GoogleCodeExporter]

Please see attached image.

Thank You!

----------------------------------------
procedure TestIt;
var
  o : TJSON;
begin
  o := JSON;
  o.FirstName := '中国';
  o.LastName := 'Southwell';
  o.Phone[0] := '702-555-1212';
  o.Phone[1] := '702-555-1213';
  writeln(o.AsJSON);
  readln;
end;
----------------------------------------

Original issue reported on code.google.com by mainchen@gmail.com on 24 Aug 2012 at 6:29

Attachments:

• demo.png