16,748
社区成员
发帖
与我相关
我的任务
分享
//Delphi7+XMLDocument
procedure TForm1.Button1Click(Sender: TObject);
var
Node:IXMLNode;
begin
XMLDocument1.Active:=True;
Node:=XMLDocument1.Node.AddChild('olderInfo');
Node.AddChild('oiYysj').NodeValue:='';// or Node.AddChild('oiYysj').Text:='';
Node.AddChild('oiLysj').Text:='';
Node.AddChild('oiLyyy').Text:='';
Node.AddChild('oiFwbtje').Text:='0'; // or Node.AddChild('oiFwbtje').NodeValue:=0;
XMLDocument1.SaveToFile('c:\1.xml');
memo1.Text:=XMLDocument1.XML.Text;
end;