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

hfrui 2003-12-19 11:01:25

...全文

28 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

dickeybird888 2004-01-06

打赏
举报

哈哈，高哈哈！

47522341 2004-01-06

打赏
举报

richedit.lines.assign(richedit.lines);

coffeesun 2004-01-06

打赏
举报

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

cll007 2004-01-06

打赏
举报

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

shizhoubo 2004-01-06

打赏
举报

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

VHDLcn 2003-12-20

打赏
举报

剪切板和流。

whitetiger8 2003-12-20

打赏
举报

一共就这么点东西，全让你说了。我说什么啊。555

miky 2003-12-20

打赏
举报

如果不想用剪贴板,也可以这样

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;

miky 2003-12-20

打赏
举报

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