S>Э-э, парень. Вот тут ты не прав. Сериализатор чего угодно в XML на дельфи пишется за один день. При этом ни строчки пользовательского кода править не надо. Преимущество — скорость разработки. Код, который ты привел, научить сериализовать в XML невозможно (в хуман-ридабле, ессно. в СDATA, ясен хрен, ты запихаешь и не такое

struct some_type
{
    std::string name;
    std::vector<std::string> vec_str;
    std::vector<int> vec_int;
    std::vector<std::vector<std::string> > vec_vec_str;
    XML_SERIALIZE()
    {
        serializer
        .version(1)
            serialize(name)
            serialize(vec_str)
        .version(2)
            serialize(vec_int)
            serialize(vec_vec_str)
        ;
    }
};

WH>struct some_type
WH>{
WH>    std::string name;
WH>    std::vector<std::string> vec_str;
WH>    std::vector<int> vec_int;
WH>    std::vector<std::vector<std::string> > vec_vec_str;
WH>    XML_SERIALIZE(some_type)
WH>    {
WH>        serializer
WH>        .version(1)
WH>            serialize(name)
WH>            serialize(vec_str)
WH>        .version(2)
WH>            serialize(vec_int)
WH>            serialize(vec_vec_str)
WH>        ;
WH>    }
WH>};
WH>

<some_type>
    <string name="name">
        asdasd
    </string>
    <vector name="vec_str">
        <string>
            asdasd
        </string>
        <string>
            asdasd
        </string>
    </vector>
    <vector name="vec_int">
        <int val=123/>
        <int val=123/>
        <int val=123/>
    </vector>
    <vector name="vec_vec_str">
        <vector>
            <string>
                asdasd
            </string>
            <string>
                asdasd
            </string>
            <string>
                asdasd
            </string>
        </vector>
        <vector>
            <string>
                asdasd
            </string>
            <string>
                asdasd
            </string>
        </vector>
    </vector>
</some_type>

    Item := Add as TMyItem; // Создаём и добавляем

mov    eax, [ebp-$0c]
call    TCollection.Add
mov    edx, [$00467204]
call    @AsClass
mov    [ebp-$08], eax

    Item := TMyItem(Add); // Создаём и добавляем

mov    eax, [ebp-$0c]
call    TCollection.Add
mov    [ebp-$08], eax

var
    Item: TXItem;
    C: TCollection;

template<class Type, class Allocator>
struct serialize_save_load<std::vector<Type, Allocator> >
{
        typedef std::vector<Type, Allocator>    container;
        typedef typename container::size_type    size_type;
        template<class T>
        static void save(T& st, const container& cont)
        {
...
        }
        template<class T>
        static void load(T& st, container& cont)
        {
...
        }
        //Что-то вроде
        static const char* get_type_name()
        {
            return "vector";
        }
};

#define serialize(name).record(#name, name)

A>Не нравится, значит, как я код изложил. Так моей целью была не оптимизация, а демонстрация. Давай так.

A>var
A>    C: TCollection;
A>    Item: TMyItem;
A>begin
A>    C := TCollection.Create(TMyItem);