什么是将Delphi对象树序列化到XML的好方法 – 使用RTTI而不是自定义代码？

什么是将Delphi对象树序列化到 XML的好方法 – 使用RTTI而不是自定义代码？

我本来希望发现这个功能已经在Delphi中构建了,但似乎并不是这样.

我发现了一些组件(发布在下面),看起来他们可能会执行这个功能.你有没有使用过任何一个或其他产品？你建立了自己的？我在Delphi中缺少一些明显的东西吗？

解决方法

您可以使用JVCL TJvAppxMLFileStorage组件来序列化TPersistent派生类.

uses
  JvAppxMLStorage;

var
  Storage: TJvAppxMLFileStorage;
begin
  Storage := TJvAppxMLFileStorage.Create(nil);
  try
    Storage.WritePersistent('',MyObject);
    Storage.Xml.SavetoFile('S:\TestFiles\Test.xml');

    Storage.Xml.LoadFromFile('S:\TestFiles\Test.xml');
    Storage.ReadPersistent('',MyObject);
  finally
    Storage.Free;
  end;
end;