procedure TForm1.Button1Click(Sender: TObject);
var
xmlNode,xmlNode2: IXMLNode;
i: Integer;
begin
XML.Active := true;
XML.Version := '1.0';
XML.Encoding := 'UTF-8';
xmlNode := XML.AddChild('config');
xmlNode.AddChild('test');
XML.SaveToFile('C:/test.xml');
xmlNode := xml.DocumentElement;
for i := 0 to xmlNode.ChildNodes.Count - 1 do
begin
xmlNode2 := xmlNode.ChildNodes.Get(i);
ListBox1.Items.Add(xmlNode2.NodeName + ',' + xmlNode2.Text + ',' + xmlNode2.LocalName + ',' + xmlNode2.XML)
end;
end;
明明只增加了一个节点test,但是childnodes.count却是4个,晕啊,还有三个显示text为#text,是xml属性作怪还是什么啊?