RichEdit: Inhalt im Speicher halten?

[HJay]

Die TMemoryStreams zum Halten der Inhalte klappen gut. Ich kann leicht den Inhalt verschiedener TMemoryStream-Objekte abwechselnd in ein RichEdit laden. Danke!

Zitat von DeddyH:

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?

[HJay]

NACHTRAG:
Ich habe inzwischen die Ursache festgestellt: Ein RichText darf nur einmal die Konstruktion {\rtf1 ... enthalten. Beim Zusammenkopieren der beiden RichText-Streams werden aber logischerweise die beiden {\rtf}-Blöcke hintereinander kopiert und der zweite Block wird dann vom RichEdit einfach ignoriert.

Daraus schließe ich, dass das bloße Zusammenführen der Memory-Streams nicht klappen wird.

FRAGE: Wer hat eine Idee, wie man einfach zwei RTF-Texte, von denen einer in einem RichText-Objekt, der andere in einem TMemoryStream gehalten wird, zusammenzuführen? Am besten sogar an der aktuellen Caret-Positon einzufügen?

[toms]

2 RichEdits kannst du mittels EM_STREAMOUT, EM_STREAMIN zusammenführen.

Ein Beispiel dafür findest du hier:

Zusätzlich noch diese Zeile ändern, damit der alte Inhalt nicht überschrieben wird:

SendMessage(RichEdit, EM_STREAMIN, SF_RTF, lParam(@EditStream)); ändern zu:

SendMessage(RichEdit, EM_STREAMIN, SF_RTF + SFF_SELECTION, lParam(@EditStream));

[DeddyH]

Aber bitte nicht addieren, sondern verodern.

[HJay]

@toms: Danke! Hat geklappt. Ich kann jetzt direkt einen TMemoryStream in ein TRichEdit hineinkopieren, so dass er an der Cursorposition eingefügt wird. Ich habe noch einige ähnliche Aufrufe im Netz gefunden und eine "eingedampfte" Prozedur erzeugt, die jetzt griffig und geradlinig ist.