How to copy RTF text to a TMemo via a TStringStream (Views: 713)
Problem/Question/Abstract: How to copy RTF text to a TMemo via a TStringStream Answer: Here is a method to copy the formatted text to a memo via a stringstream. The same approach should work to store it in a database field that takes a string. procedure TForm1.Button1Click(Sender: TObject); var ss: TStringStream; begin ss := TStringStream.Create(EmptyStr); try richedit1.plaintext := false; richedit1.lines.savetostream(ss); memo1.text := ss.DataString; finally ss.free; end; end; procedure TForm1.Button2Click(Sender: TObject); var ss: TStringStream; begin ss := TStringStream.Create(memo1.text); try richedit1.plaintext := false; richedit1.lines.LoadFromstream(ss); finally ss.free; end; end; To simply copy formatted text from a TRichEdit to a string, you could also use: function GetRawRTFText(aRichedit: TRichedit): string; var SS: TStringstream; begin SS := TStringstream.Create(EmptyStr); try aRichedit.plaintext := False; arichedit.Lines.SaveToStream(SS); Result := SS.DataString; finally SS.Free end; end; |