请问有在BCB中使用JSON的吗?2个问题求解.

[路过路人乙]

写了一段测试代码:

Json::Value jsTmp,jsZongs;
    for(int i = 0; i < 3; i++)
    {
        jsTmp["ord"] = i;
        jsTmp["ceshi"] = AnsiString("循环:" + IntToStr(i)).c_str();
        jsZongs.append(jsTmp);
    }

这样.展示出来的JSON是这样的:

[
	
	{
		"ceshi" : "循环:0",
		"ord" : 0
	},
	
	{
		"ceshi" : "循环:1",
		"ord" : 1
	},
	
	{
		"ceshi" : "循环:2",
		"ord" : 2
	}
]

这个时候,如何删除个item..比如删除ord=1的那组数据?

第二个问题是:JSON是无序的..是根据append的顺序加载的..如何在中间插入一条Item呢?

[缘中人]

删除中间一行，这样行不

	TJSONArray* jar = (TJSONArray*)(TJSONObject*)TJSONObject::ParseJSONValue(Memo3->Text);
	jar->Count;
	jar->Remove(1);
	jar->Count;
	Memo3->Text = jar->ToString();

	delete jar;

[缘中人]

这个可以判断删除 ord=1的

	TJSONArray* jar = (TJSONArray*)TJSONObject::ParseJSONValue(Memo3->Text);
	jar->Count;
	for (int i = 0; i < jar->Size(); i++)
	{

		TJSONValue *jv = jar->Get(i);
		jv = ((TJSONArray*)jv)->Get(1);
		TJSONPair *jp = (TJSONPair*)jv;
		if (jp->JsonValue->Value() == "1")  //判断值
		{
			jar->Remove(i);
			break;
		}
	}
	// jar->Remove(1);
	Memo3->Text = jar->ToString();

	delete jar;