求救：在Delphi中怎样操作 XML 文件？

Question

如果你用的是DELPHI6可以看他的DEMO下面的一个对XML进行操作的例子，非常详细的。在DELPHI的安装目录的DEMO\INTERNET\ 下有：XMLTransform、XMLTransformClient、XMLTransformParam、XMLTransformProvider 、这么4个例子，你好好看看，比谁讲的都好~~HOHO，为什么不好好看帮助和DEMO呢？这些都是很好的书~

Answer 1

to Kandy:
多谢指点！
不过好象它对XML文件的格式有一定的要求，而不象C#中那样不管黑XML白XML，只要是XML就能转换。

Answer 2

解析成树形函数，放在treeview里显示
procedure tform1.domtotree(xmlnode : ixmlnode; treenode : ttreenode);
var
  i : integer;
  newtreenode : ttreenode;
  nodetext : string;
  attrnode : ixmlnode;
begin
    if xmlnode.NodeType =  ntElement then
      begin
        nodetext := xmlnode.LocalName;
        for i:=0 to xmlnode.AttributeNodes.Count -1 do
          begin
            attrnode := xmlnode.AttributeNodes.Nodes[i];
            nodetext:=nodetext+' '+attrnode.NodeName +'='+attrnode.text;
          end;        if xmlnode.IsTextElement then
           nodetext := nodetext+'   '+xmlnode.Text;         newtreenode:= treeview1.Items.AddChild(treenode,nodetext);        if xmlnode.HasChildNodes then
          for I:=0 to xmlnode.ChildNodes.Count  -1 do
            domtotree(xmlnode.ChildNodes.Nodes[i],newtreenode);
      end;
end;

Answer 3

放一个xmldocument,一个treeview,opendialog1,button，然后选择xml文件即可
procedure TForm1.Button1Click(Sender: TObject);
begin
     opendialog1.InitialDir := extractfilepath(application.ExeName);
     if opendialog1.Execute then
       begin
           xmldoc.LoadFromFile(opendialog1.FileName );
           treeview1.Items.Clear ;
           domtotree(xmldoc.DocumentElement ,nil);
           treeview1.FullExpand ;
       end;
end;