Einzelnen Beitrag anzeigen

BerndS

Registriert seit: 8. Mär 2006
Ort: Jüterbog
329 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Richedit: Plaintext ohne Neuladen

  Alt 3. Sep 2019, 15:42
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;
Bernd
  Mit Zitat antworten Zitat