打开APP
未登录
开通VIP,畅享免费电子书等14项超值服
开通VIP
首页
好书
留言交流
下载APP
联系客服
delphi读写XML
sumstars
>《WebBrowser》
2014.11.19
关注
XML文件内容;
<?xml version="1.0" encoding="GB2312"?>
<我的书>
<漫画 作者="小飞">
<书名>火影忍者</书名>
<价格>100</价格>
</漫画>
<漫画 作者="大飞">
<书名>死神</书名>
<价格>100</价格>
</漫画>
<漫画 作者="阿斗">
<书名>天牢</书名>
<价格>200</价格>
</漫画>
<小说 作者="阿斗">
<书名>天牢</书名>
<价格>200</价格>
</小说>
</我的书>
////////////
delphi内容;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
XMLDocument1: TXMLDocument;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
mybook = class
name: string;
money: string;
author: string;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
root: IXMLnode;
lei: IXMLNode;
info: IXMLNode;
book: mybook;
i: integer;
begin
xmldocument1.LoadFromFile('xml.xml');
root := xmldocument1.DocumentElement;
lei := root.ChildNodes.First;
while lei <> nil do
begin
if lei.NodeName = '漫画' then
begin
book := mybook.Create;
book.author := lei.Attributes['作者'];
info := lei.ChildNodes.First;
while info <> nil do
begin
if info.NodeName = '书名' then
book.name := info.Text
else if info.NodeName = '价格' then
book.money := info.Text;
info := info.NextSibling;
//showmessage('中华人民共和国');
end;
memo1.Lines.Add(book.name + book.money + book.author);
end;
lei := lei.NextSibling;
end;
end;
end.
写XML
procedure TForm1.btn2Click(Sender: TObject);
var
a, b, c:IXMLNode;
begin
xmlDocument.Active := true;
xmlDocument.Version := '1.0';
xmlDocument.Encoding := 'gb2312';
a := xmlDocument.AddChild('第一个节点');
b := a.AddChild('第一个节点的子节点');
c := b.AddChild('第一个节点的子节点的子节点');
c.Text := '第一个节点的子节点的子节点的标题';
xmlDocument.SaveToFile('e:\\pas\\Rule.xml');
end;
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报
。
打开APP,阅读全文并永久保存
查看更多类似文章
猜你喜欢
类似文章
【热】
打开小程序,算一算2024你的财运
Delphi 中的 XMLDocument 类详解(12) - 读取或设置 xml 的编码与版本号
Delphi直接读取Xml
Unity中xml解析
XmlDocument类的WriteContentTo和WriteTo方法
一个经过改良的XMLHelper(包含了序列化,反序列化,创建xml文件,读取节点,C#对...
C#:XML操作类
更多类似文章 >>
生活服务
热点新闻
留言交流
回顶部
联系我们
分享
收藏
点击这里,查看已保存的文章
导长图
关注
一键复制
下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!
联系客服
微信登录中...
请勿关闭此页面
先别划走!
送你5元优惠券,购买VIP限时立减!
5
元
优惠券
优惠券还有
10:00
过期
马上使用
×