Hallo,
ich habe mir deinen Code angesehen und an einer Stelle die notwendige Korrektur gemacht, die andere Stelle änderst dann du:
Delphi-Quellcode:
// ...
procedure insert(const XMLNode: IXMLDOMNode);
var
u: IUnknown;
begin
u := XMLNode as IUnknown;
mem_1.lines.add(inttohex(integer(u),6) + ' : ' + XMLNode.nodename);
if(XMLNode.childNodes.length > 0) then
for i := 0 to XMLNode.childNodes.length - 1 do
insert(XMLNode.childNodes[i]);
end;
// ...
Zwei Interface-Pointer zeigen auf dasselbe Objekt, wenn ihre IUnknown-Pointer identisch sind.
Freundliche Grüße