自学编程123 ——快乐江米工作室唯一官方网站

Delphi 字符串转json结构体

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






作者:jiangmi 分类:编程随笔 浏览:1338 评论:0