Hallo Leute
Ich habe folgendes Problem: Wenn ich per IXMLDOMDocument neue Knoten anfüge und diese dann in einer Datei speichere, wird der belegte Speicher nach Nil setzen des Dokumentes nicht wieder freigegeben. Das ganze passiert zwar mit einer eigenen Klasse, aber selbst mit folgender Implementation funkt es nicht:
Code:
procedure TestXML;
var
lDoc: IXMLDOMDocument;
lRootNode, lNode: IXMLDOMNode;
i: Integer;
begin
lDoc := CoDOMDocument60.Create;
try
lRootNode := lDoc.createElement('Root');
lDoc.appendChild(lRootNode);
for i := 0 to 1000000 do begin
lNode := lDoc.createElement('Child' + IntToStr(i));
lNode.text := 'Childknoten ' + IntToStr(i);
lRootNode.appendChild(lNode);
end;
lDoc.save('D:\Test.xml');
finally
lDoc := nil;
end;
end;
Nach dem Nil setzen, sollte der belegte Speicher ja wieder freigegeben werden. Aber nix tut sich.