System.JSON读写JSON字符串 

 1 #include <System.JSON.builders.hpp>
 2     //读JSON
 3     String jsonStr = "{\"name\":\"张三\",\"age\":23}";
 4     TJSONObject *json = (TJSONObject*)TJSONObject::ParseJSONValue(jsonStr);
 5     String val = json->GetValue("name")->Value();
 6     Memo1->Lines->Add(val);
 7     Memo1->Lines->Add(json->GetValue("age")->ToString());
 8 
 9     /*     写JSON        */
10     TJSONObject* obj = new TJSONObject();
11     obj->AddPair("name", "张三");
12     obj->AddPair("age", 30);
13     obj->AddPair("flag", new TJSONBool(true));
14     UnicodeString jsonStr = obj->ToString();
15     return jsonStr;

 

posted on 2026-09-26 22:19  懒龙2013  阅读(3)  评论(0)    收藏  举报

导航