Delphi7.0向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码：
procedureTForm1.ComponentToDOM(iNode:IXmlNode;Comp:TPersistent);
var
nProps,i:Integer;
PropList:PPropList;
Value:Variant;
newNode:IXmlNode;
begin
nProps:=GetTypeData(Comp.C
