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;
