Dynamisches Array verschachteln und speichern

[tgvoelker]

Zitat von himitsu:

aber du kannst es vergessen die den TFzzV.Record einfach so in einen Stream

Code:

type PFzzV=^TFzzV;
     PFTerm=^TFTerm;
var pPFzzV:PFzzV;
    pI:LongInt;
    pPFTerm:PFterm;
...

pFzzV:=Pointer(Cardinal(FzzV)+Index*SizeOf(TFzzV));
Stream.Write(pPFzzV^,SizeOf(TFzzV));
For pI:=0To Length(pPFzzV^.FTArray)-1 Do Begin
  pPFTerm:=Pointer(Cardinal(pPFzzV^.FTArray)+pI*SizeOf(TFTerm));
  Stream.Write(pPFTerm^,SizeOf(TFTerm));
End;