Question

如何用Delphi打开一个XML文档并在文档中加入新的内容

Answer 1

uses msxmldom, XMLDoc, XMLIntf;
// 注意节点名 属性名大小写
procedure TForm1.Button1Click(Sender: TObject);
var
// Xml 容器
XMLDoc: TXMLDocument;
IXMLDoc: IXMLDocument;
// Xml节点
Root_Node: IXMLNode;
Parent_Node: IXMLNode;
Child_Node: IXMLNode;
begin
XMLDoc:= TXMLDocument.Create(nil);
IXMLDoc:= XMLDoc;
try
XMLDoc.LoadFromFile('d:\Test.xml');
XMLDoc.Active:= True;
XMLDoc.Encoding:= 'UTF-8';
Root_Node:= XMLDoc.DocumentElement;
if Root_Node = nil then
Exit;
if Root_Node.NodeName <> 'map' then
Exit;

Parent_Node:= Root_Node.ChildNodes.First;
if Parent_Node = nil then
Exit;
if Parent_Node.NodeName = 'point' then
begin
Memo1.Lines.Add('point type = "' + Parent_Node.Attributes['type'] + '"');
Child_Node:= Parent_Node.ChildNodes.First;
while Child_Node <> nil do
begin
Memo1.Lines.Add(Child_Node.NodeName +
' ' + VarToStr(Child_Node.NodeValue) +
' x = ' + VarToStr(Child_Node.Attributes['X']) +
' y = ' + VarToStr(Child_Node.Attributes['Y']));
Child_Node:= Child_Node.NextSibling;
end;
end;
finally
IXMLDOC:= nil;
XMLDoc:= nil;
XMLDoc.Free;
end;
end;
用这个试试