delphi读写XML

XML文件内容;

1. <?xml version="1.0" encoding="GB2312"?>
2. <我的书>
3.  
4.    <漫画 作者="小飞">
5.         <书名>火影忍者</书名>
6.         <价格>100</价格>
7.     </漫画>
8.     <漫画 作者="大飞">
9.         <书名>死神</书名>
10.         <价格>100</价格>
11.     </漫画>
12.     <漫画 作者="阿斗">
13.         <书名>天牢</书名>
14.         <价格>200</价格>
15.     </漫画>
16.     <小说 作者="阿斗">
17.         <书名>天牢</书名>
18.         <价格>200</价格>
19.     </小说>
20. </我的书>

delphi内容;

1. unit Unit1;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;
9. type
10. TForm1 = class(TForm)
11.     Button1: TButton;
12.     Memo1: TMemo;
13.     XMLDocument1: TXMLDocument;
14.     procedure Button1Click(Sender: TObject);
15. private
16.     { Private declarations }
17. public
18.     { Public declarations }
19. end;
20. mybook = class
21.     name: string;
22.     money: string;
23.     author: string;
24. end;
26. var
27. Form1: TForm1;
29. implementation
31. {$R *.dfm}
33. procedure TForm1.Button1Click(Sender: TObject);
34. var
35. root: IXMLnode;
36. lei: IXMLNode;
37. info: IXMLNode;
39. book: mybook;
40. i: integer;
41. begin
42. xmldocument1.LoadFromFile('xml.xml');
43. root := xmldocument1.DocumentElement;
45. lei := root.ChildNodes.First;
46. while lei <> nil do
47. begin
48.     if lei.NodeName = '漫画' then
49.     begin
50.       book := mybook.Create;
51.       book.author := lei.Attributes['作者'];
53.       info := lei.ChildNodes.First;
55.       while info <> nil do
56.       begin
57.         if info.NodeName = '书名' then
58.           book.name := info.Text
59.         else if info.NodeName = '价格' then
60.           book.money := info.Text;
61.         info := info.NextSibling;
62.         //showmessage('中华人民共和国');
63.       end;
65.       memo1.Lines.Add(book.name + book.money + book.author);
66.     end;
67.     lei := lei.NextSibling;
68. end;
70. end;
72. end.

写XML

1. procedure TForm1.btn2Click(Sender: TObject);
2. var
3.     a, b, c:IXMLNode;
4. begin
5.     xmlDocument.Active := true;
6.     xmlDocument.Version := '1.0';
7.     xmlDocument.Encoding := 'gb2312';
9.     a := xmlDocument.AddChild('第一个节点');
10.     b := a.AddChild('第一个节点的子节点');
11.     c := b.AddChild('第一个节点的子节点的子节点');
12.     c.Text := '第一个节点的子节点的子节点的标题';
14.     xmlDocument.SaveToFile('e://pas//Rule.xml');
16. end;