703
社区成员
发帖
与我相关
我的任务
分享
XML1 := TXMLDocument.Create(nil);
try
XML1.XML.Clear;
XML1.Active := True; {必须先激活}
//---打包头
XML1.Version := '1.0'; {设置版本}
XML1.Encoding := 'GB2312'; {设置语言}
XML1.DocumentElement := XML1.CreateNode('User');
FNode := XML1.DocumentElement;
pNode := FNode.AddChild('Head');
...