怎样把一个RichEdit的内容复制到另外一个RichEdit中？包括格式

Question

怎样把一个RichEdit的内容复制到另外一个RichEdit中？包括格式

Answer 1

最简单的方法,利用剪贴板
procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
 richedit1.SelectAll;
 richedit1.CopyToClipboard;
 richedit2.SelectAll;
 richedit2.PasteFromClipboard;
end;

Answer 2

如果不想用剪贴板,也可以这样procedure TForm1.Button2Click(Sender: TObject);
var
  ss: TStringStream;
  emptystr: string;
begin
  Richedit1.PlainText := False;
  Richedit2.PlainText := False;
  ss := TStringStream.Create(emptystr);
  try
    RichEdit1.Lines.SaveToStream(ss);
    richedit2.Text := ss.DataString;
  finally
    ss.Free
  end;end;

Answer 3

最简单的方式richedit.lines.assign(richedit.lines);

Answer 4

RichEdit1.Lines.AddStrings(RichEdit2.Lines);
----
这年头，赚点分儿都不容易

Answer 5

richedit2.text:=richedit1.text
哈哈
这样最省事

Answer 6

richedit.lines.assign(richedit.lines);