引用单元: 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;