Alle Variablen abspeichern

[Mokuba01]

Guten Abend,

Zitat von himitsu:

Bei einer DB mußt du aber auch jede Variable einzeln da rein-/rausbekommen.


Von wievielen Variablen ist hier eigentlich die Rede und von welchem Typ sind diese?

Die Rede ist von, im Moment (es werden vermutlich noch mehr), 52 Variablen. Diese sind von den Typen:
Integer, Boolean, String, Float. Des weiteren gibt es wei Arrays, jeweils des Types Integer und String.

mfg
Mokuba01

[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;