Speichern von Baumstrukturen

[negaH]

Delphi-Quellcode:

    Size := TFNode.GetData.Size; 
//    TFStream.Position := FilePos; 
    TFStream.Write(Level, 2); 
    TFStream.Write(Size, 2); 
    TFStream.Write(TFNode.GetData.PData^, Size); 
//    FilePos := TFStream.Position;

Schmeiß das FilePos raus, es wird nicht benötigt. Ansonsten sehe ich keinen Fehler.

Gruß Hagen

[Chewie]

Ich hab die die Variable FilePos reingenommen, da es am Anfang scheinbar so war, dass Daten an einer Position geschrieben wurden, an der sich bereits andere Daten befanden.

Aber ohne die Variable zu verwenden kommt jetzt das gleiche Ergebnis. OK, 4 Byte Stack gespart, aber ansonsten das gleiche Problem.

Na ja, ich werd mich mal dem Lesen widmen, da bekomm ich ja eine zusätzliche Kontrolle.