XML文件的读写操作

XML文件的读写操作 xmlDoc: IXMLDocument;

1.  IXMLDocument对象初始化

xmlDoc := TXMLDocument.Create(nil);

2.  激活xmlDoc,自动初始化空的XML文档

xmlDoc.Active := True;

3.  设置XML版本和字符集

xmlDoc.Version := '1.0';

 xmlDoc.Encoding := 'GB2312';

4.  建立根节点、设置属性并添加子节点

xmlNode := xmlDoc.AddChild('图书馆');//根节点

BookNode := xmlNode.AddChild('Book');//子节点

BookNode.SetAttributeNS('ID', '=', '001');//设置属性

MsgNode := BookNode.AddChild('作者');

MsgNode.Text := '作者1';//设置节点的文本值

MsgNode := BookNode.AddChild('价钱');

 MsgNode.Text := '100';

5.  XML的保存

xmlDoc.SaveToFile('C:/xmlDoc.xml');

 

XML文件的读取

1.  IXMLDocument对象初始化

xmlDoc:=TXMLDocument.Create(nil);

2.  调入XML文件

xmlDoc.LoadFromFile('C:/xmlDoc.xml');

3.       XML文件的根结点和子节点的内容

begin

  //xmlDoc.XML.Text := 'C:/xmlDoc.xml';

  xmlDoc:=TXMLDocument.Create(nil);

  xmlDoc.LoadFromFile('C:/xmlDoc.xml');

  xmlNode := xmlDoc.DocumentElement;

  BookNode := xmlNode.ChildNodes.First;

  while (BookNode <> nil) do

  begin

    if (BookNode.NodeName = 'Book') then

    begin

      Book := TBook.Create;

      MsgNode := BookNode.ChildNodes.First;

      while (MsgNode <> nil) do

      begin

        if (MsgNode.NodeName = '作者') then

          Book.Author := MsgNode.Text

        else if (MsgNode.NodeName = '价钱') then

          Book.Price := StrToInt(MsgNode.Text);

        MsgNode := MsgNode.NextSibling;

      end;

      Memo1.Text := Memo1.Text + #10#13 + 'Book:作者' + Book.Author

      + '价格' + IntToStr(Book.Price);

      ////Memo1.Text := Memo1.Text + #10#13 + IntToStr(Book.Price);

    end;

    BookNode := BookNode.NextSibling;

  end;

end;

 

XML文件的追加信息

xmlDoc := TXMLDocument.Create(nil);

xmlDoc.LoadFromFile('C:/xmlDoc.xml');

  xmlNode := xmlDoc.DocumentElement;

  BookNode := xmlNode.AddChild('Book');

  BookNode.SetAttributeNS('ID', '=', '003');

  MsgNode := BookNode.AddChild('作者');

  MsgNode.Text := '作者3';

  MsgNode := BookNode.AddChild('价钱');

  MsgNode.Text := '80';

  xmlDoc.SaveToFile('C:/xmlDoc.xml');

阅读更多
文章标签: xml c 文档
个人分类: Delphi 文件操作
上一篇Text文件的读写操作
想对作者说点什么? 我来说一句

VC++ 读写操作XML文件

2010年07月22日 217KB 下载

c#中对XML文件进行读写操作

2010年05月07日 45KB 下载

XML文件的读写

2008年07月09日 27KB 下载

xml读写操作

2012年02月02日 4KB 下载

VC 读写XML文件类库

2012年04月25日 10KB 下载

xml文件读写操作

2008年11月10日 449KB 下载

java操作xml

2012年03月22日 48KB 下载

C++读取XML文件

2009年03月31日 814KB 下载

没有更多推荐了,返回首页

关闭
关闭