DFM文件与XML文件互转

dfm文件是Delphi中存储窗体控件信息的，有时为了对大批量的dfm文件操作（如：批量替换控件、作检查等），往往不是太方便。
xml对结构化的数据读写则很强，将文本类型的dfm转为xml后进行操作，再转回dfm存储大大方便了操作。

//DFM to XMLPRocedure Dfm2Xml(ADfmStrings: TStrings; AXml: IDsXmlDocument);Var  i: integer;  mStr : string;  mParentNode, mNode : IDsXMLNode;  mObjName, mClass, mObjType: string;  mPropName, mPropValue: string;  mInItem: Boolean;   //有Item的也会有End相对，所以要和Object end分开begin  mInItem := False;  mParentNode := AXML;  for i:=0 to ADfmStrings.Count - 1 do  begin    mStr := trim(ADfmStrings.Strings[i]);    //对象开始    if (copy(mStr, 1, 6) = 'object') or (copy(mStr, 1, 9) = 'inherited') then    begin      //先写入属性 - 如果还有属性没有写      if mPropName <> '' then      begin        mNode := AXml.createElement(mPropName);        mNode.text := mPropValue;        mParentNode.appendChild(mNode);        mPropName := '';      end;      mObjType := CutToken(mStr, ' ');          //Type: object or inherited      mObjName := CutToken(mStr, ': ');         //ObjName: Ex. frmCmsI03      mClass := mStr;                           //ClassName: Ex. TButton      mNode := AXml.createElement(mObjName);      (mNode as IDsXmlElement).setAttribute('ObjType', mObjType);      (mNode as IDsXmlElement).setAttribute('Class', mClass);      mParentNode.appendChild(mNode);      mParentNode := mNode;    end    //对象结束    else if (mStr = 'end') and (not mInItem) then    begin      //先写入属性      if mPropName <> '' then      begin        mNode := AXml.createElement(mPropName);        mNode.text := mPropValue;        mParentNode.appendChild(mNode);        mPropName := '';      end;      mParentNode := mParentNode.parentNode;    end    //属性处理    else    begin      //有 = 说明是一个属性的新的开始      if (Pos(' = ', mStr) > 0) and (not mInItem) then      begin        //先写入属性        if mPropName <> '' then        begin          mNode := AXml.createElement(mPropName);          mNode.text := mPropValue;          mParentNode.appendChild(mNode);        end;        mPropName := CutToken(mStr, ' = ');        mPropValue := CutToken(mStr, ' = ');      end      else   //说明这个属性可能有多行        mPropValue := mPropValue + '#13#10' + mStr;        if mStr = 'item' then mInItem := True;        if mStr = 'end' then mInItem := False;    end;  end;end;//XML to DFMprocedure Xml2Dfm(AXml: IDsXmlDocument; ADfmStrings: TStrings);  procedure Node2Dfm(ANode: IDsXMLNode; oString: TStrings; IdentSpace: string);  Var    mObjName, mClass, mObjType: string;    mPropName, mPropValue: string;    mNode : IDsXMLNode;    i: integer;    mVar : Variant;  begin    mObjName := (ANode as IDsXmlElement).NodeName;    mClass   := (ANode as IDsXmlElement).getAttribute('Class');    mObjType := (ANode as IDsXmlElement).getAttribute('ObjType');    //写入Object begin    oString.Add(Format('%s%s %s: %s', [IdentSpace, mObjType, mObjName, mClass]));    //写入属性    for i:= 0 to ANode.childNodes.length - 1 do    begin      mNode := ANode.childNodes.item[i];      //Has Child 说明是一个新的对象      mVar := (mNode as IDsXmlElement).getAttribute('ObjType');      if not varIsNull(mVar)  then        Node2Dfm(mNode, oString, IdentSpace + '  ')      //是属性，写进去就好了．      else      begin        mPropName := mNode.nodeName;        mPropValue := mNode.text;        mPropValue := StringReplace(mPropValue, '#13#10', #13#10, [rfReplaceAll]);        //写入：缩进        oString.Add(Format('%s%s = %s', [IdentSpace+'  ', mPropName, mPropValue]));      end;    end;    //写入End    oString.Add(Format('%send', [IdentSpace]));  end;  begin  Node2Dfm(AXml.Get_documentElement, ADfmStrings, '');end;

用到的类型：

uses   MSXML2_TLB;//类型自己重新定义过type  IDsXmlDocument = IXMLDOMDocument2;  IDsXmlNode     = IXMLDOMNode;  IDsXmlElement  = IXMLDOMElement;  IDsXmlNodeList = IXMLDOMNodeList;