Как получить RTF текст из TRichEdit

Материал из DRKB

Как получить RTF текст из TRichEdit[править | править код]

function GetRTFText(ARichEdit: TRichedit): string;
var
  ss: TStringStream;
  emptystr: string;
begin
  emptystr := '';
  ss := TStringStream.Create(emptystr);
  try
    ARichEdit.PlainText := False;
    ARichEdit.Lines.SaveToStream(ss);
    Result := ss.DataString;
  finally
    ss.Free
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := GetRTFText(RichEdit1);
end;


Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 01021