关于Delphi操作xml的问题。请达人帮忙，感激！！！

Question

以下是xml里的内容：
<?xml version="1.0" encoding="UTF-8"?>
<Root>
<Databases>
<Database ID="StarCare" Type="Oracle">
<DataSource>StarCare</DataSource>
<User>MobilePhoneService</User>
<Password>123456</Password>
</Database>
</Databases>
</Root>在Delphi的写一个DLL，如何把上面XML里的内容取出来呀？？要取ID，DataSource,User,Password里的值。。

Answer 1

http://www.delphibbs.com/keylife/iblog_show.asp?xid=17299       delphi操作xml学习笔记 之一 入门必读
http://www.delphibbs.com/keylife/iblog_show.asp?xid=17439       delphi操作xml学习笔记 之二 简单读写
http://www.delphibbs.com/keylife/iblog_show.asp?xid=17482       delphi操作xml学习笔记 之三 进阶必读
http://www.delphibbs.com/keylife/iblog_show.asp?xid=17530       delphi操作xml学习笔记 之四 简单增删查改

Answer 2

uses XMLIntf,XMLDoc;var Databases ,Database: IXMLNode;
    ID, DataSource, User, Password : string;
    XMLDocument1 : IXMLDocument;
begin
  XMLDocument1 := TXMLDocument.Create('test.xml');
  XMLDocument1.Active := True;
  Databases := XMLDocument1.DocumentElement.ChildNodes.FindNode('Databases');
  Database := Databases.ChildNodes.FindNode('Database');
  ID := Database.AttributeNodes.Nodes['ID'].Text;
  DataSource := Database.ChildNodes.FindNode('DataSource').Text;
  User := Database.ChildNodes.FindNode('User').Text;
  Password := Database.ChildNodes.FindNode('Password').Text;
  //......

Answer 3

又让老之搞了
procedure TForm1.Button1Click(Sender: TObject);
var
Root : IXMLNode; //指向XML根结点
Node: IXMLNode; //指向结点
begin
 XMLDocument1.LoadFromFile('c:\myxml.xml');
 XMLDocument1.Active:= True;
 Root:= XMLDocument1.DocumentElement;
 Memo1.Lines.Add(Root.NodeName);   //root
 Node:= Root.ChildNodes[0];
 Memo1.Lines.Add(Node.NodeName);   //databases
 Node:= Node.ChildNodes[0];
 Memo1.Lines.Add(Node.NodeName);  //database
 Memo1.Lines.Add('ID='+ Node.Attributes['ID']);
 Memo1.Lines.Add('Type='+ Node.Attributes['Type']);
 Memo1.Lines.Add('DataSource= '+Node.ChildNodes.FindNode('DataSource').Text);
 Memo1.Lines.Add('User= '+Node.ChildNodes.FindNode('User').Text);
 Memo1.Lines.Add('Password= '+Node.ChildNodes.FindNode('Password').Text);
end;