dfm文件是Delphi中存储窗体控件信息的，有时为了对大批量的dfm文件操作（如：批量替换控件、作检查等），往往不是太方便。
XML对结构化的数据读写则很强，将文本类型的dfm转为xml后进行操作，再转回dfm存储大大方便了操作。
//DFM to XML procedure 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 DFM procedure 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;
本文地址：http://com.8s8s.com/it/it4984.htm