Delphi中动态调用TXMLDocument的经历

var
  vXMLDocument: TXMLDocument;
begin
  vXMLDocument := TXMLDocument.Create('c:/temp/temp.xml');
  Caption := IntToStr(vXMLDocument.Node.ChildNodes.Count);
  vXMLDocument.Free;
end;

 

执行上面的代码跳出"Invalid pointer operation"异常

发现屏蔽vXMLDocument.Free;又正常了

跟踪内核代码vXMLDocument被释放了两次 搞不清楚原因

没办法只好到处搜代码

 

然后在窗体上直接放置一个TXMLDocument控件

这段代码又不出错了

 

郁闷，唯一的区别就是放置的控件赋值了Owner，直接TXMLDocument.Create('c:/temp/temp.xml');没有赋值Owner

好吧，先解决问题

var
  vXMLDocument: TXMLDocument;
begin
  vXMLDocument := T