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?

[Fossibaer58809]

Versuch mal die Reader und Writerobjekte zu verwenden.
Die bieten (fast) alle Möglichkeiten Daten unterschiedlichen Typs in eine Datei zu schreiben und aus dieser zu lesen.

Michael

[Steve]

Du kannst es auch folgendermaßen versuchen:
Vor dem Speichern (z.B. des Memo-Inhalts) Größe ermitteln und in die Datei schreiben, beim Laden erst die Größe aus der Datei auslesen und schon weißt Du, wie viel Du (z.B. in das Meno) aus dem Stream lesen musst.

Gruß
Stephan