Alle Variablen abspeichern

[himitsu]

falls du alles in ein paar Records/Arrays unterbringen kannst ... siehe Demo_Serialize.dpr (himXML)

[edit]
ich seh grad ... Delphi 6 ...OK, dann geht dieses im Momant noch nicht
[/edit]

Delphi-Quellcode:

Var R: Record
         i: Integer;
         S: String;
         P: TPoint;
         B: Array[0..31] of Byte;
         A: Array[0..2] of Integer;
       End;


Var XML: TXMLFile;
  Node:  TXMLNode;
  T, T2: TXMLSerializeRecordInfo;
  C:     TXMLSerializeRecord_Creator;
  i:     Integer;

XML := TXMLFile.Create;
C   := TXMLSerializeRecord_Creator.Create;
Try
  C.Add('i', rtInteger);
  C.Add('S', rtString);
  i := C.Add('P', rtRecord);
  C.Add(C.SubInfo[i, nil], 'X', rtInteger);
  C.Add(C.SubInfo[i, nil], 'Y', rtInteger);
  C.Add('B', rtBinary, 32);
  i := C.Add('A', rtArray, 3);
  C.Add(C.SubInfo[i, nil], 'i', rtInteger);

  XML.RootNode.Serialize(R, C.RecordInfo, 4);
  XML.SaveToFile('test.xml');
Finally
  XML.Free;
  C.Free;
End;