大佬教程收集整理的这篇文章主要介绍了如何在delphi中创建xml文件，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
单位writexml1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,xmldom,XMLIntf,StdCtrls,msxmldom,XMLDoc;
type
TForm1 = class(TForm)
XMLDocument1: TXMLDocument;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SaveClick(Sender: TObject);
var
rootName: String;
childNode: String;
attrChild: string;
iXml: IDOMDocument;
iRoot,iNode,iNode2,iChild,iAttribute: IDOMNode;
XMLDoc: TXMLDocument;
begin
XMLDoc.Active := False;
XMLDoc.XML.Text := '';
XMLDoc.Active := True;
XMLDoc.SaveToFile('C:\Documents and Settings\a\Desktop\zulfa.xml');
iXml := XMLDoc.DOMDocument;
iRoot := iXml.appendChild(iXml.createElement('xml'));
iNode := iRoot.appendChild(iXml.createElement('test'));
iNode.appendChild(iXml.createElement('test2'));
iChild := iNode.appendChild(iXml.createElement('test3'));
iChild.appendChild(iXml.createElement('Simple calue'));
iNode.insertBefore(iXml.createElement('test4'),iChild);
iNode2 := iNode.cloneNode(True);
iRoot.appendChild(iNode2);
iAttribute := iXml.createAttribute('color');
iAttribute.nodeValue := 'red';
iNode2.attributes.setNamedItem(iAttribute);
end;
end.
问题是,在单击保存按钮时会显示异常,例外是
这段代码应该说明,它是多么简单：
{...}
Var
XML : IXMLDOCUMENT;
RootNode,CurNode : IXMLNODE;
begin
XML := NewXMLDocument;
XML.Encoding := 'utf-8';
XML.Options := [doNodeAutoIndent]; // looks better in Editor ;)
RootNode := XML.AddChild('XML');
CurNode := RootNode.AddChild('Test');
CurNode := CurNode.AddChild('Test2');
CurNode.Text := 'Some Test 2 text';
CurNode.Attributes['NewAttribute'] := 'Some Test2 Attribute Value';
XMl.SaveToFile('C:\Documents and Settings\a\Desktop\zulfa.xml');
{...}
这就是生成的文件如何：
<?xml version="1.0" encoding="utf-8"?>
<XML>
<Test>
<Test2 NewAttribute="Some Test2 Attribute Value">Some Test 2 text</Test2>
</Test>
</XML>
我希望这有帮助
PS：此示例仅需要XMLIntf和XmlDoc单元,以便您可以整理您的用途.
以上是大佬教程为你收集整理的如何在delphi中创建xml文件全部内容，希望文章能够帮你解决如何在delphi中创建xml文件所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。