Die TMemoryStreams zum Halten der Inhalte klappen gut. Ich kann leicht den Inhalt verschiedener TMemoryStream-Objekte abwechselnd in ein RichEdit laden. Danke!
Den alten Inhalt in einen weiteren Stream laden, dort den vorhandenen Streaminhalt hintendran kopieren und alles wieder zurück ins RichEdit. So würde ich es zumindest versuchen.
Hm, das schaffe ich leider nicht. Ich habe aber auch nicht so viel Erfahrungen mit TMemoryStream. Ich habe es so probiert:
Code:
procedure TForm1.ButtonUseAStreamClick(Sender: TObject);
begin // funktioniert: Stellt Inhalt von AStream in RichEdit dar!
AStream.Position := 0;
RichEdit1.Lines.LoadFromStream(AStream);
end;
procedure TForm1.ButtonAddAStreamClick(Sender: TObject);
var CSTream : TMemoryStream;
begin // verändert den Inhalt nicht -- warum?
CStream := TMemoryStream.Create;
RichEdit1.Lines.SaveToStream(CStream);
AStream.Position := 0;
AStream.SaveToStream(CStream);
CStream.Position := 0;
RichEdit1.Lines.LoadFromStream(CStream);
CStream.Free;
end;
Die Prozedur ButtonAddAStream() funktioniert leider nicht. RichEdit enthält hinterher
genau den gleichen Inhalt wie vorher, aber keineswegs wie gewünscht zusätzlich den Inhalt von AStream. Was mache ich falsch?