Meine beiden Codestücke stammen aus 2 verschiedenen Proceduren einer eigenen Klasse.
Ich denke aber das tut nix zur Sache den der Code von
chaosben mit der hinzugefügten
xml.options-Zeile
verursacht das gleich Problem wie in meinem beiden Proceduren.
Hier der Code von
chaosben mit meiner
xml.options-Zeile.
Delphi-Quellcode:
var
xml : TXMLDocument;
node : IXMLNode;
begin
xml:=TXMLDocument.Create(Self);
xml.Options :=
xml.Options + [doNodeAutoIndent];
// <- Diese Zeile verursacht das Problem
xml.Active:=true;
node:=
xml.AddChild('
root');
node:=node.AddChild('
files');
node.AddChild('
file');
node.AddChild('
file');
node:=node.ChildNodes.First;
while Assigned(Node)
do
begin
MessageDlg(node.XML, mtWarning, [mbOK], 0);
Node:=node.NextSibling;
end;
Ohne der
xml.options-Zeile werden mir 2 "<file/>"-Nodes angezeigt, so wie es sein sollte.
Mit der
xml.options-zeile bekomme ich 2 leere Dialoge, 1 x "<files/>", 2 x leer, wieder ein "<files/>" und noch ein leeren Dialog.
Und das ist mir unlogisch.
Vielleicht könnt ihr aus mal probieren, ob sich das bei euch genauso verhält.
