DFM文件与XML文件互转

【 tulaoshi.com - 编程语言 】

　　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  beginmStr := trim(ADfmStrings.Strings[i]);//对象开始if (copy(mStr, 1, 6) = 'object') or (copy(mStr, 1, 9) = 'inherited') thenbegin  //先写入属性 - 如果还有属性没有写  if mPropName  '' then  beginmNode := 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) thenbegin  //先写入属性  if mPropName  '' then  beginmNode := AXml.createElement(mPropName);mNode.text := mPropValue;mParentNode.appendChild(mNode);mPropName := '';  end;  mParentNode := mParentNode.parentNode;end//属性处理elsebegin  //有 = 说明是一个属性的新的开始  if (Pos(' = ', mStr)  0) and (not mInItem) then  begin//先写入属性if mPropName  '' thenbegin  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);  VarmObjName, mClass, mObjType: string;mPropName, mPropValue: string;mNode : IDsXMLNode;i: integer;mVar : Variant;  beginmObjName := (ANode as IDsXmlElement).NodeName;mClass   := (ANode as IDsXmlElement).getAttribute('Class');mObjType := (ANode as IDsXmlElement).getAttribute('ObjType');//写入Object beginoString.Add(Format('%s%s %s: %s', [IdentSpace, mObjType, mObjName, mClass]));//写入属性for i:= 0 to ANode.childNodes.length - 1 dobegin  mNode := ANode.childNodes.item[i];  //Has Child 说明是一个新的对象  mVar := (mNode as IDsXmlElement).getAttribute('ObjType');  if not varIsNull(mVar)  thenNode2Dfm(mNode, oString, IdentSpace + '  ')  //是属性，写进去就好了．  else  beginmPropName := mNode.nodeName;mPropValue := mNode.text;mPropValue := StringReplace(mPropValue, '#13#10', #13#10, [rfReplaceAll]);//写入：缩进oString.Add(Format('%s%s = %s', [IdentSpace+'  ', mPropName, mPropValue]));  end;end;//写入EndoString.Add(Format('%send', [IdentSpace]));  end;  begin  Node2Dfm(AXml.Get_documentElement, ADfmStrings, '');end;

　　用到的类型：

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