Delphi操作XML::自动换行
2009-08-28 10:08
501 查看
uses
xmlintf, xmldoc
Var
gxmldoc: TXmldocument;
gxmlnode: IXmlnode;
Implementation
……
try
gxmldoc := txmldocument.Create(Nil);
gxmldoc.Active := true;
gxmldoc.Version := '1.0';
gxmldoc.Encoding := 'GB2312';
gxmldoc.StandAlone := 'yes';
gxmldoc.NodeIndentStr := #13 + #10 + ' ';
gxmldoc.Options := gxmldoc.Options + [doNodeAutoIndent];
gxmlnode := gxmldoc.AddChild('ROOT');
gxmlnode := gxmlnode.AddChild('NODE');
gxmlnode := gxmlnode.AddChild('內容');
gxmlnode.Attributes['Attrib'] := 'Attrib';
gxmldoc.SaveToFile('Parserbuf.xml');
gxmldoc.active := false;
Finally
Gxmldoc.free;
end;
xmlintf, xmldoc
Var
gxmldoc: TXmldocument;
gxmlnode: IXmlnode;
Implementation
……
try
gxmldoc := txmldocument.Create(Nil);
gxmldoc.Active := true;
gxmldoc.Version := '1.0';
gxmldoc.Encoding := 'GB2312';
gxmldoc.StandAlone := 'yes';
gxmldoc.NodeIndentStr := #13 + #10 + ' ';
gxmldoc.Options := gxmldoc.Options + [doNodeAutoIndent];
gxmlnode := gxmldoc.AddChild('ROOT');
gxmlnode := gxmlnode.AddChild('NODE');
gxmlnode := gxmlnode.AddChild('內容');
gxmlnode.Attributes['Attrib'] := 'Attrib';
gxmldoc.SaveToFile('Parserbuf.xml');
gxmldoc.active := false;
Finally
Gxmldoc.free;
end;
相关文章推荐
- 如何在DELPHI的XML中进行换行操作。谢谢!!!!
- Delphi操作XML(五)
- Delphi操作XML:TXMLNode类(一)
- Delphi操作XML:变量与常量
- Delphi用WebBrowser编程-自动登录操作
- delphi操作xml学习笔记 之一 入门必读
- C# 生成XML空元素/空节点自动换行解决方案
- VBA中创建自动换行的XML文件
- Delphi操作XML(八)
- Android Studio xml 格式化不自动换行问题
- Delphi操作XML:TXMLNode类(二)
- Delphi操作XML的几个博客
- Delphi操作xml
- delphi 操作xml笔记
- delphi操作xml之添加注释节点
- 用序列化解决DOM输出XML文件自动换行问题
- delphi操作xml
- Delphi操作XML的技巧
- android 引导用户指示操作 高亮显示 可以自定义文字或者图片来作为提示,文字会自动换行
- delphi 换行操作 Word