获取XML中的相关信息的相关代码

//获取XML中的相关信息
    IXMLNode *node;
    IXMLNodeList *parentlist=NULL,*childlist=NULL;
    int i,j;
    try
    {
        node=MainForm->MsgXML->ChildNodes->FindNode("allMessage");     //顶级节点
        if(node->GetNodeType()==ntElement)    //一级节点
        {
            parentlist=node->ChildNodes;      //一级节点列表
            if(parentlist->Count == 0)
                return;
            TListItem *pItem;
            for(i=0;i<parentlist->Count;i++)
            {
                if(parentlist->Nodes[i]->GetNodeType()==ntElement)     //二级节点
                {
                    childlist=parentlist->Nodes[i]->ChildNodes;      //二级节点列表
                    if(String(childlist->Nodes[1]->Text) != CName)
                        continue;
                    pItem = History->Items->Add();
                    pItem->Caption = "标题："+String(childlist->Nodes[2]->Text)+" ("+String(childlist->Nodes[0]->Text)+")";
                    pItem = History->Items->Add();
                    pItem->Caption = "    内容："+String(childlist->Nodes[3]->Text);
                }
            }
        }
    }
    catch(...)
    {
        ;
    }