引用单元:   System.JSON

json字符串转json结构体

var
 json:TJSONObject ; // JSON类
 tstr:string;//json字符串
begin   
   tstr:='{"name":"测试一下","sex":"男","age":50}'; //json字符串
   json := TJSONObject.ParseJSONValue(trim(tstr),true) as TJSONObject;//字符串转化json对象
   //获取json对象中元素的值。
   showmessage(json.GetValue('name').Value;//返回：测试以下。
   //获取json对象中元素的值并转为字符串
   showmessage(json.GetValue('sex').ToString);//返回："男"(带双引号)
end;