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 (co...[ 查看全文 ]