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;
Delphi操作XML::自动换行
最新推荐文章于 2018-11-21 09:20:35 发布