XMLTextReader XMLStrukturen auslesen

[Master_BB]

aja ok ich habs,
nun also hier die lösung zum Serialisieren und Deserialisieren einer ArrayList
in Delphi .NET ohne VCL

Delphi-Quellcode:

//Alle objekte einer ArrayList in xml speichern

//Item objekte die in der Liste sind
TMyItem = class
protected
  Fname : String;
public
  property Name : string read FName;
end;

[XmlInclude(typeof(TMyItem))]  //WICHTIG
TMyItemsArrayList = class(ArrayList)
....

var
  AMyItemsArrayList : TMyItemsArrayList;

procedure SaveToXML;
var
  AXMLSerializer : XMLSerializer;
  AXMLTextWriter : XMLTextWriter;
begin
  AXMLTextWriter := XMLTextWriter.Create('c:\myfile.xml');
  try
    AXMLSerializer := XMLSerializer.Create(TypeOf(TMyItemsArrayList));
    AXMLSerializer.Serialize(AXMLTextWriter, AMyItemsArrayList);
  finally
    AXMLTextWriter.Close;
  end;    
end;

function LoadXML : TMyItemsArrayList;
var
  AXMLSerializer : XMLSerializer;
  AXMLTextReader : XMLTextReader;
begin
  Result := nil;
  AXMLTextReader := AXMLTextReader.Create('c:\myfile.xml');
  try
    AXMLSerializer := XMLSerializer.Create(TypeOf(TMyItemsArrayList));
    Result         := TMyItemsArrayList(AXMLSerializer.Deserialize(AXMLTextReader));
  finally
    AXMLTextReader.Close;
  end;
end;

so hab ich mir ja fast meine zarten finger wund geschrieben
an dem beispiel.

ja ich denke der code ist selbsterklärend.

Greetz