Eine Datei in einen Stream laden und Daten dazuschreiben

[Zacherl]

Hallo,
wie kann ich 3 Strings in einem Stream speichern und dann zu den Strings eine Datei dazuspeichern.
Alos in etwa:

Fs1 := TFilestream.create(..., fmCreate); //Der Stream
//Dann strings schreiben
Fs2 := TFilestream.create(..., fmOpenRead); //Die zu ladene Datei
//irgendwas wie
//fs1.copyfrom(fs2, fs2.size);

Der ganze Prozess soll auch rückgängig gemacht werden, sodass man hinterher die geladene Datei wieder getrennt von den Strings speichern kann.

Florian

[Khabarakh]

Da sowohl die Strings als auch die Dateien variable Längen haben, musst du immer als erstes ihre Länge speichern, sodass deine Datei z.B. so aussieht:

[Cardinal = 4 Byte] Stringlänge
[Stringlänge Byte] Stringinhalt(= ab Index 1)
[Cardinal = 4Byte] Dateilänge
[Dateilänge Byte] Datei

Zum Speichern von Strings findest du hier einige Beispiele.