{$APPTYPE CONSOLE}
Uses
SuperObject ;
var
soTest:ISuperObject;
begin
writeln('JSON TEST');
soTest := so('{"name":"张三","age":"25","address":{"Address1":"
福州","address2":"厦门"}}');
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
把这句注释掉,可以运行。一旦变量赋值,运行就报异常。
是什么问题?
// soTest := TSuperObject.ParseString('{"name":"张三","age":"25",
"address":{"Address1":"福州","address2":"厦门"}}');
// writeln(soTest['name'].AsString); //
张三
// writeln(soTest['address.Address1'].AsString); //
福州
// writeln(soTest['address.Address2'].AsString); //
厦门
end.
|