Baumstruktur in Stream speichern

[Peter666]

Hi,

ich habe einen Baum mit einer mehreren Wurzeln und unterschiedlichen Ebenen.

Code:

Kontinent
 - Land
   - Stadt
    - Firma
      - Gruppe
        - Person A
        - Person B
      - Person C
   - Person E

Person ist eine Klasse/Record mit Daten wie Name, Telefonnummer etc.

Ich habe versucht das in einer XML Klasse zu machen und da brauch ich mich ja nur durch die Nodes zu hangeln. Bei einer 100mb großen XML wird allerdings alleine schon das bauen ebendieser arg langsam. Nun wollte ich das ganze mit Zeigern umsetzen und aus dem Tree eine Listbox machen mit der man sich wie in einem Dateibrowser von oben nach unten durchhangeln kann.

Blöderweise hab ich irgendwie eine Blockade wie ich das am einfachsten in einem TStream speichere und auslese. Hat jemand eine Idee? Ich möchte nicht bei jedem Eintrag die Sektion in dem Stream lesen.

Meine Struktur schaut so aus:

Delphi-Quellcode:

 TNode = record
  Parent: PNode;
  IsPerson: Boolean;
  Name: String;
  Anschrift: string;
  Kennung: integer;
 end;
 PNode = ^TNode;