Delphi 字符串转json结构体

 jiangmi   2018-06-29 18:26   647 人阅读  0 条评论

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






本文地址:https://kljmgzs.cn/zb/?id=35
版权声明:本文为原创文章,版权归 jiangmi 所有,欢迎分享本文,转载请保留出处!

评论已关闭!