unit1.~cpp

bcb中通过递归方式将xml导入到树形列表（Treeview）中

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
typedef struct MyRec
{
        String FName,LName;
}TMyRec;
//赋值：
void __fastcall TForm1::XMLtoTree(TTreeNode *Node,_di_IXMLNode node,TTreeView *Tree)
{
        typedef TMyRec* PMyRec;

        PMyRec MyRecPtr;
        TTreeNode* Layel;
        //int TreeViewIndex;
        _di_IXMLNodeList nodes=node->ChildNodes;
        if(node->HasChildNodes)
        {
                for(int i=0;i<nodes->Count;i++)
                {
                        AnsiString ss = nodes->Nodes[i]->GetNodeName();
                        Layel = Tree->Items->Add(Node,ss);
                        for(int j=0;j<(nodes->Nodes[i]->ChildNodes->Count);j++)
                        {
                                MyRecPtr=new TMyRec;
                                MyRecPtr->FName=nodes->Nodes[i]->ChildNodes->Nodes[j]->GetNodeName();
                                //MyRecPtr->LName=nodes->Nodes[i]->ChildNodes->Nodes[j+1]->GetText().w_str();
                                //MyRecPtr->LName = nodes->Nodes[i]->ChildNodes->Nodes[j+1]->GetNodeName().c_bstr();
                                Tree->Items->AddChildObject(Node,MyRecPtr->FName,MyRecPtr);
                                //Tree->Items->AddChildObject(Node,MyRecPtr->LName,MyRecPtr);
                                node= nodes->Nodes[i]->ChildNodes->Nodes[j];
                                //String s = node->NodeName;
                                //char *c = s.c_str();
                                //Application->MessageBox(c,"错误信息框",MB_ICONERROR);
                                if(node->HasChildNodes){
                                        XMLtoTree(Layel,node,Tree);
                                }
                        }
                }
                //XMLtoTree("record.xml",TreeView1);
        }
}

//取值的：
String __fastcall TForm1::GetTreeValue(TTreeView *Tree)
{
        typedef struct MyRec
        {
                String FName,LName;
        }TMyRec;
        typedef TMyRec* PMyRec;
        PMyRec  MyRecPtr;
        //return PMyRec(Tree->Selected->Data)->LName;
}


void __fastcall TForm1::FormCreate(TObject *Sender)
{
        _di_IXMLDocument xml;
        xml = LoadXMLDocument("record.xml");
        _di_IXMLNode node = xml->DocumentElement;
        TTreeNode *Node;
        XMLtoTree(TreeView1->Items->Add(NULL,node->NodeName),node,TreeView1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TreeView1DblClick(TObject *Sender)
{
        ShowMessage(GetTreeValue(TreeView1));
}
//---------------------------------------------------------------------------