verschiedene Infos in eine Datei speichern

[Patrick]

Tach,

Ich will verschiedene Informationen in eine Datei packen.
Das sieht zur Zeit so aus:

Code:

Stream := TFileStream.Create('datei.dat', fmCreate);
Memo2.Lines.SaveToStream(stream);
ListBox1.Items.SaveToStream(stream);
TRY
  Stream.Write(von, SizeOf(von));
  Stream.Write(bis, SizeOf(bis));
FINALLY
  Stream.Free;
END;

Das Laden dementsprechend so:

Code:

  Stream := TFileStream.Create('datei.dat', fmOpenRead);
  Memo2.Lines.LoadfromStream(stream);
  ListBox1.Items.LoadfromStream(stream);
  TRY
    Stream.read(von, SizeOf(von));
    Stream.read(bis, SizeOf(bis));
  FINALLY
    Stream.Free;
  END;

Vorher habe ich diese Informationen in 3 einzelnen Dateien gespeichert, nun will ich aber nur noch eine Datei erstellen, aber das ganze funktioniert nicht so, wie es soll. z.B. das Memo2 weis ja nicht wieviel es von dem Stream laden soll...

Wie kann ich das realisieren, oder gibt es eine andere viel einfachere Art?