Delphi直接读写XML修改版

unit Unit3;    interface  uses SysUtils, Variants, Classes, Forms, Windows, msxmldom, XMLDoc, XMLIntf;  type    TOperateXml = class(Tobject)      public      function getnodefromIXMLNodeList(childnodes: IXMLNodeList; nodename:        string): IXMLNode;      function GetXMLNodeSpecialValue(strEntityEngineFile: string;        XMLNodePath: string;        const XMLAttrName: string = ''; const XMLSpecialName: string = ''; const        XMLSpecialValue: string = ''; const dep: Char = '.'): string;      function SetXMLNodeSpecialValue(strEntityEngineFile: string; xmlNodePath:        string; const xmlattrname: string = '';        const value: string = '';        const XMLSpecialName: string = '';        const XMLSpecialValue: string = '';        const dep: Char = '.'): boolean;      end;    var    OperateXml: TOperateXml;    implementation  { TOperateXml }    function TOperateXml.getnodefromIXMLNodeList(childnodes: IXMLNodeList; nodename: string):    IXMLNode;  var    i: Integer;  begin    for i := 1 to childnodes.Count do    begin      if (childnodes.Get(i - 1).NodeName = nodename) then      begin        result := childnodes[i - 1];        exit;      end;    end;  end;      {------------------------------------------------------------------------------- Fun/Pro:     GetXMLNodeSpecialValue @Date:     2004.12.11 @Param:   xmlFile xml文件 @Param:   xmlnodepath 节点 @Param:   xmlattrname 节点中的属性名称，如果直接取节点值则可以忽略此参数。 @Param:   XMLSpecialName 要查找的节点中属性名 @Param:   XMLSpecialValue 要查找的节点中某属性对应的值 @Param:   dep 节点的参数的分隔符，默认为. @Return:     某属性的值 -------------------------------------------------------------------------------}    function TOperateXml.GetXMLNodeSpecialValue(strEntityEngineFile: string; XMLNodePath:    string;    const XMLAttrName: string = ''; const XMLSpecialName: string = ''; const    XMLSpecialValue: string = ''; const dep: Char = '.'): string;  var    xmlDocument: IXMLDocument;    node: IXMLNode;    xmlnodeList: TStrings;    i: Integer;    urlcount: Integer;  begin    //xml节点路径     xmlnodeList := TStringList.Create;    xmlnodeList.Delimiter := dep;    xmlnodeList.DelimitedText := xmlnodepath;    urlcount := xmlnodeList.Count;    //xml对象     xmlDocument := TXMLDocument.Create(nil);    xmlDocument.LoadFromFile(strEntityEngineFile);    xmlDocument.Active := true;    try      node := xmlDocument.DocumentElement;      if (node.NodeName = xmlnodeList[0]) then      begin        //扫描节点         for i := 1 to urlcount - 1 do        begin          if (node <> nil) then          begin            node := getnodefromIXMLNodeList(node.ChildNodes, xmlnodeList[i]);          end          else            Break;        end;        if (node = nil) then        begin          result := '';        end        else        begin          //判断是取属性还是取节点内容           if (Trim(xmlattrname) = '') then            result := node.Text          else          begin            result := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue;            //这里不想再声明一个临时变量了，就用result来比较，可能有隐患。             while ((result <> XMLSpecialValue)) do            begin              node := node.NextSibling;              while (node.NodeName = '#comment') do              begin                node := node.NextSibling;              end;              result := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue;            end;            result := node.AttributeNodes.Nodes[XMLAttrName].NodeValue;          end;        end;      end      else      begin        result := '';      end;      except      result := 'error';    end;    xmlDocument.Active := false;  end;      {------------------------------------------------------------------------------- Fun/Pro:     SetXMLNodeSpecialValue @Date:     2004.12.11 @Param:   xmlFile xml文件 @Param:   xmlnodepath 节点 @Param:   xmlattrname 节点中的属性名称，如果直接取节点值则可以忽略此参数。 @Param:   XMLSpecialName 要查找的节点中属性名 @Param:   XMLSpecialValue 要查找的节点中某属性对应的值 @Param:   dep 节点的参数的分隔符，默认为. @Return:     操作成功与否 -------------------------------------------------------------------------------}    function TOperateXml.SetXMLNodeSpecialValue(strEntityEngineFile: string; xmlNodePath:    string;    const xmlattrname: string = ''; const value: string = ''; const    XMLSpecialName: string = ''; const XMLSpecialValue: string = ''; const dep:    Char = '.'): boolean;  var    xmlDocument: IXMLDocument;    node: IXMLNode;    xmlnodeList: TStrings;    i: Integer;    urlcount: Integer;    CMPValue: string;  begin    //xml节点路径     xmlnodeList := TStringList.Create;    xmlnodeList.Delimiter := dep;    xmlnodeList.DelimitedText := xmlnodepath;    urlcount := xmlnodeList.Count;    //xml对象     xmlDocument := TXMLDocument.Create(nil);    xmlDocument.LoadFromFile(strEntityEngineFile);    xmlDocument.Active := true;    try      node := xmlDocument.DocumentElement;      if (node.NodeName = xmlnodeList[0]) then      begin        //扫描节点         for i := 1 to urlcount - 1 do        begin          if (node <> nil) then            node := getnodefromIXMLNodeList(node.ChildNodes, xmlnodeList[i])          else            Break;        end;          if (node <> nil) then        begin          {if(Trim(xmlattrname)='') then           node.Text:=value         else           node.AttributeNodes.Nodes[xmlattrname].NodeValue:=value;         }          if (Trim(XMLAttrName) = '') then            node.Text := value          else          begin            CMPValue := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue;            while (CMPValue <> XMLSpecialValue) do            begin              node := node.NextSibling;              while (node.NodeName = '#comment') do              begin                node := node.NextSibling;              end;              CMPValue := node.AttributeNodes.Nodes[XMLSpecialName].NodeValue;            end;            node.AttributeNodes.Nodes[XMLAttrName].NodeValue := value;          end;          xmlDocument.SaveToFile(strEntityEngineFile);        end;      end;      result := true;    except      result := false;    end;    xmlDocument.Active := false;  end;            end.