TPersistent-Listen in Stream schreiben und wieder lesen

[Panthrax]

Hallo.

Ich möchte Komponenten und Listen (mit TPersistent-Nachfahren) in einem Stream speichern. Dieser soll dann mit ObjectBinaryToText und ObjectTextToBinary editierbar gemacht werden. Mit Komponenten funktioniert es zufriedenstellend; mit Listen nicht.

Zunächst habe ich mit einer Komponente mit Listen-Eigenschaft folgendes erfolgreich probiert:

• Objekt erzeugen -> binär ablegen -> Objekt zerstören; mit Stream.WriteComponent, Component.DefineProperty
• Objekt aus dem Binär-Stream wiederherstellen; mit Stream.ReadComponent, Component.DefineProperty

Wenn ich nun zwischendurch aus dem Binär-Stream einen Text-Stream machen will, kommt nur Murks heraus (siehe Bild). Für Komponenten (TComponent) und Kollektionen (TCollection und TCollectionItem) sind die Methoden WriteComponent und WriteCollection vorgesehen. Für Listen gibt es soetwas nicht (?).

Ein bisschen Quelltext:

Delphi-Quellcode:

procedure TMyComponent.WriteProp(Writer: TWriter);
var
  Component: TComponent;
begin
  Component:=TComponent.Create(nil);
  Component.Name:='Komponente1';
  Writer.WriteStr('MyProp');
  Writer.WriteListBegin;
  Writer.WriteComponent(Component);
  Writer.WriteListEnd;
  Component.Free;
end;

Für die Listen funktioniert zwar die Binär-Variante aber die Umwandlung zur Text-Variante ist nicht möglich, weil ich nicht weiß, wie die Binär-Variante strukturiert sein muss, dass sie ebenfalls in die Text-Variante umgewandelt werden kann (wenn das überhaupt möglich ist).

Mit Component.DefineBinaryProperty ist hier nicht geholfen, da es um die Editierbarkeit geht. Auch eine Kollektion hilft hier nicht weiter, da sie nicht das ist,was im Programm benötigt wird (größte Mankos: Keine Add(...)- und Extract-Methoden und kein Hinzufügen unterschiedlicher Objekte einer gleichen Basisklasse).

Meine Lösungsansatz führt nicht weiter. Irgendwelche Ideen?