try{
XML_Doc=LoadXMLDocument(WideString(Trim(inName->Text)));
}catch(Exception &e){
MyMsgBox(e.Message,""); return;
} XML_Doc->Active;
IXMLNode *root; //指向XML根結點
IXMLNode *Parent_Node; //父結點
IXMLNode *Child_Node; //子結點

ListBox1->Items->Clear();
root=XML_Doc->DocumentElement;
Parent_Node=root->ChildNodes->First(); //獲取第一個父結點
while(Parent_Node != NULL){
Child_Node=Parent_Node->ChildNodes->First(); //獲取本父結點的第一個子結點
while(Child_Node != NULL){
ListBox1->Items->Add(Child_Node->Text); //取姓結點的值(就是這一行會出錯 Element does not contain a single text node)
Child_Node = Child_Node->NextSibling(); //順序取下一個子結點信息
}
Parent_Node = Parent_Node->NextSibling(); //順序取下一個父結點信息
}