Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function GetRTFtext(Const RichEdit: TRichEdit): String;
- var
- MemoryStream : TMemoryStream;
- RTFText : AnsiString;
- begin
- MemoryStream := TMemoryStream.Create;
- try
- RichEdit.Lines.SaveToStream(MemoryStream);
- MemoryStream.position := 0;
- if MemoryStream.size > 0 then
- SetString(RTFText, pchar(MemoryStream.Memory), MemoryStream.size);
- finally
- FreeAndNil(MemoryStream);
- end;
- Result := String(RTFText);
- end;
Add Comment
Please, Sign In to add comment