如何修改XML节点的名称,比较急 有XML文件,读到TXMLDOCUMENT后,如何修改节点的名称 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 FAQ 中有我提交的FAQ.查找一下。 variDoc : TXMLDocument;iNode: TXMLNode;iNode := iDoc.ChildNodes[节点名];iNode.NodeName := 新名称; 我给你看个我做的例子,这样你可以参考参考:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;type TForm1 = class(TForm) XMLDocument1: TXMLDocument; Button1: TButton; Memo1: TMemo; Edit1: TEdit; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var //k: integer; nn : IXMLNode; vv : IXMLNode; kk : String; k :IXMLNode;//IXMLNodeList; c : Integer;begin{k := 8;k := self.XMLDocument1.DocumentElement.ChildValues['checkdate'];edit1.Text := Inttostr(k);}//--添加节点nn := XMLDocument1.DocumentElement.AddChild('header');//nn.Attributes[''] := '';vv := nn.AddChild('receiveflag');vv.Text := 'jjjj';vv := nn.AddChild('checkdate');vv.Text := 'dfd';XMLDocument1.SaveToFile('aa.xml');//-- 读取节点的值k := XMLDocument1.DocumentElement.ChildNodes[0];c := XMLDocument1.DocumentElement.ChildNodes.Count;//edit1.Text := inttostr(c)+XMLDocument1.FileName;//showmessage(k);edit1.Text := k.ChildNodes['receiveflag'].Text;end;procedure TForm1.Button2Click(Sender: TObject);var a : TXMLDocument;begin a:=TXMLDocument.Create(self); a.FileName:='http://localhost/xml/web.xml'; a.SaveToFile('xml.xml');end;end.注意,记得把XMLDocument1组件的路径设置好。 程序媛联盟 菜鸟问题,在线等! 参数没有默认值 好几年没来CSDN了,成立了公司,选择了别的行业,感触多多,散分 DELPHI CORBA 端口问题 如何使0值,grid就不显示出来? 如何捕获窗体级或程序级的键盘事件? sender的用法 在Teechart中,如何给Y轴上坐标值? 各位大哥,我这个时间问题怎么解决???? Ehlib 3.6的编译问题 xml问题 大放分....
iDoc : TXMLDocument;
iNode: TXMLNode;iNode := iDoc.ChildNodes[节点名];
iNode.NodeName := 新名称;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;type
TForm1 = class(TForm)
XMLDocument1: TXMLDocument;
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
//k: integer;
nn : IXMLNode;
vv : IXMLNode;
kk : String;
k :IXMLNode;//IXMLNodeList;
c : Integer;
begin
{k := 8;
k := self.XMLDocument1.DocumentElement.ChildValues['checkdate'];
edit1.Text := Inttostr(k);
}//--添加节点
nn := XMLDocument1.DocumentElement.AddChild('header');
//nn.Attributes[''] := '';
vv := nn.AddChild('receiveflag');
vv.Text := 'jjjj';
vv := nn.AddChild('checkdate');
vv.Text := 'dfd';
XMLDocument1.SaveToFile('aa.xml');//-- 读取节点的值
k := XMLDocument1.DocumentElement.ChildNodes[0];
c := XMLDocument1.DocumentElement.ChildNodes.Count;//edit1.Text := inttostr(c)+XMLDocument1.FileName;
//showmessage(k);
edit1.Text := k.ChildNodes['receiveflag'].Text;
end;procedure TForm1.Button2Click(Sender: TObject);
var
a : TXMLDocument;
begin
a:=TXMLDocument.Create(self);
a.FileName:='http://localhost/xml/web.xml';
a.SaveToFile('xml.xml');
end;end.注意,记得把XMLDocument1组件的路径设置好。