哪里有关于.XML文件格式的使用说明或者控件TXMLTransformProvider、TXMLTransformClient、TXMLTransform、TXMLDocument等的使用,需要有例子?给分,给分啦!!
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
是不是我的分给得太少了?
解决方案 »
- delphi調用oracle存儲過程,如何將末尾帶空格的參數傳入?
- 一个服务小程序,启动后不运行
- FastReport4.9如何直接不预览直接打印
- 静态数组,空间是否是连续的???(我要移动数组元素)
- 历史上的三个“空城计”
- REPLACE问题
- 怎么样写这个函数
- ¥【5000元 开发合作】!~ ~
- 下载了ehlib软件包可不知道怎么用,高分求救!
- 把setup10个文件合并起来成exe的中文自解压:我用了Winrar汉化版 V2.8,有二个问题:1.解压缩文件的图标如何改成setup.exe文件图标?2.我口袋里只有RMB,没有美元,谁有注册码?^_^
- 请问哪里可以下载Installshield Professinal 6.1?谢谢!
- Delphi可不可以操作Cookie?
高手怎么都不说话了?
procedure TFormMain.ButtonOrderClick(Sender: TObject);
var
ValueNode: IXMLNode;
XmlTreeNode: IXMLNode;
begin
XMLDocument1.LoadFromFile('Test.xml');
XMLDocument1.Active := True;
XmlTreeNode:=XMLDocument1.Node;
XmlTreeNode := XMLDocument1.DocumentElement.AddChild('order');
ValueNode := XmlTreeNode.AddChild('orderName');
ValueNode.Text := EditorderName.Text;
ValueNode := XmlTreeNode.AddChild('DigitalSign');
ValueNode.Text := EditDigitalSign.Text;
ValueNode := XmlTreeNode.AddChild('ApplyId');
XMLDocument1.SaveToFile('Test.xml');
end;
------------------------
修改xml的例子:
XmlTreeNode:=XMLDocument1.DocumentElement.ChildNodes[3];
XmlTreeNode.ChildNodes[NewNodeName].Text := NewNodeText;
XMLDocument1.SaveToFile(OpenDialog1.FileName);
Application.MessageBox('修改成功!','提示',MB_ICONINFORMATION + MB_OK);
-------------------------------------
删除xml中节点的例子:
XmlDocument1.Active := True;
XmlTreeNode.ParentNode.ChildNodes.Delete(XmlTreeNode.ParentNode.ChildNodes.IndexOf(XmlTreeNode));
maoke000 (老茂) 要找的资料可以在DELPHI的DEMOS中找到...
我的问题已经搞定了!