Richedit: Plaintext ohne Neuladen

[BerndS]

zu (JV)RichEdit kann ich nichts sagen aber mir TRichedit könnte es so gehen. (über die API möglicherweise noch einfacher?)
1. Sichern der RTF in einen string(FRtf):

Delphi-Quellcode:

  if FRtf = '' then
  begin
    SS := TStringStream.Create;
    try
      eRichEdit.Lines.SaveToStream(SS);
      FRtf := SS.DataString;
    finally
      SS.Free;
    end;
  end;

2. Auf Plaintext schalten

Delphi-Quellcode:

  eRichEdit.PlainText := True;
  S := eRichEdit.Lines.Text
  SS := TStringStream.Create(S);
  try
    eRichEdit.Lines.LoadFromStream(SS);
  finally
    SS.Free;
  end;

3. auf alte Anzeige zurückschalten aus FRtf

Delphi-Quellcode:

  eRichEdit.PlainText := False;
  SS := TStringStream.Create(FRtf);
  try
    eRichEdit.Lines.LoadFromStream(SS);
  finally
    SS.Free;
  end;