去年我花了很多时间尝试用DELPHI进行基于XML的WEB应用开发。起初的设想是很美好的，但结果做出来的东西很简陋。一部分原因就在于XML到Object之间的数据绑定实现太麻烦（另一部分是因为对XSLT不熟，学习它花了很多时间）。

之前我一直是用DELPHI提供的XML Data binding来做的，基本做法是：先用工具（如XMLSPY）做好一个XML Schema(XSD)，然后用XML Data binding生成DELPHI的接口和类。当然，一旦生成好就很方便了，在程序里我只要操作这个接口就好了，其中各个Field都会被变成属性，并且类型也都如我在XSD中的定义。但问题在于程序在开发过程中，总是会有一些变化的，在这种情况下，我就不得不同时开着XMLSPY修改XSD，然后重新用 XML Data binding的Wizard跑一遍，非常的麻烦。

所以当我想到数据集的对象化后，立即想到也可以用RTTI来实现Object的XML持久化--其实DELPHI6开始的SOAP实现就是用RTTI来实现Object到SOAP数据（就是XML）的转换的。显然我已经是非常的后知后觉了，当我在《强大的DELPHI RTTI--兼谈需要了解多种开发语言》一文中说到我的打算时，朋友Lex CHow回复我说他在大约一年前就做过了这方面的工作，我当即跟他要来了他的源码。lexlib是他写的是一个有很多功能的库，看上去结构有点像.net 的基本类库（当然没那么大^O^），Object的XML持久化只是其中的很小的一部分。因为我只需要这一部分，就没必要用这整个一个库这么麻烦，于是参考了lexlib并结合我在《用DELPHI的RTTI实现数据集的简单对象化》中已经实现的部分，做了一个简单的实现：

软件开发网

    TMXMLPersistent = class(TObject)

    public

        class Procedure LoadObjFromXML( aNode : IXMLNode; aObj : TPersistent );

        class Procedure SaveObjToXML(   aNode : IXMLNode; aObj : TPersistent );

    end;

const

    DefaultFilter : TTypeKinds = [tkInteger, tkChar, tkEnumeration,

        tkFloat, tkString, tkSet, tkWChar, tkLString, tkWString, tkInt64];

{ TMXMLPersistent }

class procedure TMXMLPersistent.LoadObjFromXML(aNode: IXMLNode; 

  aObj: TPersistent);

Var

    i : Integer;

    pList : TMPropList;

    pInfo : PPropInfo;

    tmpObj: TObject;

begin

    If ( aObj Is TMDataSetProxy ) Then

        ( aObj As TMDataSetProxy ).LoadFromXML( aNode )

    Else

    Begin

        pList := TMPropList.Create( aObj );

        Try

            For i := 0 To pList.PropCount - 1 Do

            Begin

                pInfo := pList.Props[i];

                If ( pInfo^.PropType^.Kind = tkClass ) Then

                Begin

              &nb