bcb XE7 TJSONObject 和 Baas控件的问题. 分全给了!!!

[小要饭]

对bcb而言,两个问题:
1 如何使用 TJSONObject实现以下格式:
{"A":"aaa","B":"bbb","ACL":{"User001":{"write":true,"read":true}}}
2 如何在RAD提供的Baas控件里关联上SessionToken.
请大家帮忙啊.

[缘中人]

大概是这个样子

 TJSONObject *OBJ = new TJSONObject();
 OBJ->AddPair("Result", "a");
 OBJ->AddPair("Text", "aaa");
Caption= OBJ->ToString();

[缘中人]

	TJSONObject *OBJ = new TJSONObject();
	OBJ->AddPair("A", "aaa");
	OBJ->AddPair("B", "bbb");

	TJSONObject *json3 = new TJSONObject();
	json3->AddPair("write", "true");
	json3->AddPair("read", "true");

	TJSONObject *json2 = new TJSONObject();
	json2->AddPair("User001", json3);

	OBJ->AddPair("ACL", json2);
	Memo1->Text = OBJ->ToString();

[ccrun.com]

来吧，看看我很久以前写的demo http://ccrun.com/temp/jsondemo.7z

[LinuxCard]

妖哥用的是jsoncpp吧，话说xe7里的TJSONObject好用吗？之前版本的都说不好用，这个版本的咋样啊？

[小要饭]

感谢各位热心大牛！！！！ 此帖还有100分 http://bbs.csdn.net/topics/390982144 ，请各位大牛高抬贵手顶个帖接分。

[ccrun.com]

引用 4 楼 LinuxCard 的回复:

妖哥用的是jsoncpp吧，话说xe7里的TJSONObject好用吗？之前版本的都说不好用，这个版本的咋样啊？

我用过某个版本里的TJSON*对象，确实不好用 。XE7的不曾测试过。