01]delphi从TRichEdit获得RTF格式文本(PC版本)

通过网盘分享的文件：tulaterRichEditV4.rar
链接: https://pan.baidu.com/s/1QMNZCXVRWqLgSphiqd2R_w?pwd=tket 提取码: tket

    RichEdit1.Lines.SaveToFile('aaa.RTF');     //保存为RTF格式
    RichEdit1.Lines.LoadFromFile('aaa.RTF');   //从RTF读取

 

var
  Stream: TStringStream;
begin
  Stream := TStringStream.Create;
  try
    RichEdit1.Lines.SaveToStream(Stream);
    // 获取RTF原始文本    //    ShowMessage(Stream.DataString);
   memo1.Text:= Stream.DataString;
  finally
    Stream.Free;
  end;
end;

 

 

delphi从TRichEdit获得RTF格式文本(PC版本)

 

procedure TForm3.FormCreate(Sender: TObject);
begin
    Memo1.Lines.LoadFromFile('aaa.RTF');
end;

procedure TForm3.RichEdit1Change(Sender: TObject);
begin
    RichEdit1.Lines.SaveToFile('aaa.RTF');     //保存为RTF格式
      Memo1.Lines.LoadFromFile('aaa.RTF');
end;