超级简单的问题！！XMLDocument加载一次以后如何清空？

Question

超级简单的问题！！XMLDocument加载一次以后如何清空？

Answer 1

XMLDocument1.XML.Clear;
也可以
XMLDocument1.Active :=False;

Answer 2

var
    L1XMLDoc: IXMLDocument;
    filestr: pchar;
    Root: IXMLNode; //指向XML根结点
    Parent_Node: IXMLNode; //指向定位节点
    Child_node: IXMLNode; //指向定位节点子结点
    grandchild_Node: IXMLNODE; //指向
    testpar:INATE_DATA;    mydata:INATE_DATA;
begin    filestr := ExtractFilePath(paramstr(0)) + m_File;
    CoInitialize(nil);
    try
        L1XMLDoc := TXMLDocument.Create(nil);
        L1XMLDoc.XML.Clear;
        L1XMLDoc.Active := True;
        L1XMLDoc.LoadFromFile(filestr);
        mydata.Long :=L1XMLDoc.XML.Count;
        mydata.SuccessFlag :=true;
        mydata.mydata :=pchar(L1XMLDoc.XML.Text);        L1XMLDoc.Active := True;
    finally
        L1XMLDoc := nil; //清空
        CoUnInitialize;
    end;
end;