XMLDocument操作_delphi no active document-优快云博客

本文介绍如何使用Delphi进行XML文档的创建与读取操作。包括创建XML文档并添加节点及属性，以及从XML文件中读取特定节点的值。通过示例代码展示了完整的操作过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.btn2Click(Sender: TObject);//读取 VAR STOCKNODE:IXMLNode; begin xmldocument1.Create('D:/test.xml'); XMLDocument1.Active:=TRUE; //STOCKNODE := XMLDocument1.DocumentElement.ChildNodes[0]; // edt1.Text := STOCKNODE.ChildNodes['length'].Text; edt1.Text:=XMLDocument1.DocumentElement.ChildNodes[0].ChildNodes[0].Text; XMLDocument1. XMLDocument1.Active:=FALSE; end; procedure TForm1.btn3Click(Sender: TObject);//创建 VAR xml:TXMLDocument; node:IXMLNode; begin Xml:= TXMLDocument.Create(nil); Xml.active:=true; xml.DocumentElement:=xml.CreateNode('XMLPacage'); node:=xml.CreateNode('memo'); xml.DocumentElement.ChildNodes.Add(node); node.ChildNodes.Add(xml.CreateNode('Hello! I am yaya!',ntText)); node.AttributeNodes.Add(xml.CreateNode('length',ntAttribute)); node.SetAttribute('length',16); node.AttributeNodes.Add(xml.CreateNode('color',ntAttribute)); node.SetAttribute('color',$0034494B); node.AttributeNodes.Add(xml.CreateNode('wid',ntAttribute)); node.SetAttributeNS('wid','',IntToStr(123456)); xml.SaveToFile('d:/test.xml'); xml.Active:=false; end;