Ah gut, ja das ist dann wirklich Pech...hm naja ich würds so machen denk ich:
Delphi-Quellcode:
procedure Test;
var XML: IXMLDocument;
Node: IXMLNode;
begin
XML := coDOMDocument60.Create;
try
XML.Version := '
1.0';
XML.StandAlone := '
yes';
XML.Encoding := '
UTF-8';
Node2 :=
XML.AddChild('
xml');
Node :=
XML.DocumentElement;
for i := 0
to 9999
do
begin
Node2 := Node.AddChild(IntToStr(i));
end;
finally
Node2 :=
nil;
Node :=
nil;
XML :=
nil;
end;
end;
Fänd ich zumindest übersichtlicher und da ich eh immer fast alles selbst freigebe ( auch Interfaces ) ^^ ....
Sollte doch effektiv auf das gleiche hinauslaufen oder ?
Ich muss mich umbedingt mehr mit sowas beschäftigen...
Edit: Ach und ganz wichtig von wegen
msXML.
DocumentElement.AddChild !
Law of Demeter Da gehe ich zumindest immer nach *g*, außer es geht halt wirklich nicht anders...