免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

打開APP
userphoto
未登錄

開通VIP，暢享免費電子書等14項超值服

開通VIP

首頁

好書

留言交流

下載APP

聯(lián)系客服
delphi讀寫XML
XML文件內(nèi)容;
  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內(nèi)容;
  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('第一個節(jié)點');
  10.     b := a.AddChild('第一個節(jié)點的子節(jié)點');
  11.     c := b.AddChild('第一個節(jié)點的子節(jié)點的子節(jié)點');
  12.     c.Text := '第一個節(jié)點的子節(jié)點的子節(jié)點的標題';
  14.     xmlDocument.SaveToFile('e:\\pas\\Rule.xml');
  16. end;
本站僅提供存儲服務，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。
打開APP，閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
Delphi 中的 XMLDocument 類詳解(12) - 讀取或設置 xml 的編碼與版本號
Delphi直接讀取Xml
Unity中xml解析
XmlDocument類的WriteContentTo和WriteTo方法
一個經(jīng)過改良的XMLHelper（包含了序列化，反序列化，創(chuàng)建xml文件，讀取節(jié)點，C#對...
C#：XML操作類
更多類似文章 >>
生活服務
分享 收藏 導長圖 關注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權(quán)！
如果VIP功能使用有故障，
可點擊這里聯(lián)系客服！

聯(lián)系客服