How to serialize Delphi TObjectList type to XML with TJvAppXMLFileStorage?

问题

Previously, to save the settings of some applications, I used:

A TSettings = class(TPersistent) for the container
Each data to serialize in a published property
List of object were TCollection and TCollectionItem types
The TJvAppXMLFileStorage component to save everything with the single line :

JvAppXMLFileStorage.WritePersistent(...);

BUT now, I'm using TObjectList as properties in the TSettings class.
So I drop the TCollection/TCollectionItem in favor of Generics ...
When serializing it, there is no list of items ... I think it's because TObjectList is not from TPersistent.

How can I serialize my TObjectList<> with TJvAppXMLFileStorage ?

回答1:

I've successfuly serialize my generic list with few lines of code by calling JvAppXMLFileStorage.WriteList.

First, this is how I serialized the list. The WriteGenericsObjectListItem<TMyClass> method is detailed below.

JvAppXMLFileStorage.WriteList('mylist',TObject(MyGenericList), MyGenericList.Count, WriteGenericsObjectListItem<TMyClass>);

Then, I just need to define how to serialize each item of the generic list. For this, I've created a generic method:

procedure TMySerializer.WriteGenericsObjectListItem<T>(Sender: TJvCustomAppStorage;
  const Path: string; const List: TObject; const Index: Integer; const ItemName: string);
begin
  if(List is TObjectList<T>) then
    if Assigned(TObjectList<T>(List)[Index]) then
      Sender.WritePersistent(Sender.ConcatPaths([Path, Sender.ItemNameIndexPath (ItemName, Index)]), TPersistent(TObjectList<T>(List)[Index]));
end;

That's it!
I haven't modify JCL/JVCL code, only add these to my program.
I think I will submit a patch to JCL/JVCL team to add the compatibility with all Generics containers.

I hope this can help you !

来源：https://stackoverflow.com/questions/12462029/how-to-serialize-delphi-tobjectlisttmyclass-type-to-xml-with-tjvappxmlfilestor

标签

xml