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

Question

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

我很想发现此功能已经内置到 Delphi 中，但似乎并没有。

我发现了一些似乎可以执行此功能的组件(已在下方发布)。您使用过其中任何一个或其他产品吗？你自己建的吗？我在 Delphi 中遗漏了什么明显的东西吗？

Answer 1

您可以使用 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;