delphi 类richedit 怎么把 一个richedit的带格式的字符串付给 另一个richedit(要保留格式)

急急急!!! 急急急!!!!!!????谢谢
2025-04-11 05:54:21
推荐回答(2个)
回答1:

RichEdit1.SelStart := 0;//起始位置
RichEdit1.SelLength := 3;//拷贝字符串长度
RichEdit1.CopyToClipboard;
RichEdit2.SelStart := 2;//插入位置
RichEdit2.PasteFromClipboard;

回答2:

第一种.复制
richedit1.SelectAll;
richedit1.CopyToClipboard;
richedit2.SelectAll;
richedit2.PasteFromClipboard;
第二种.
richedit1.lines.assign(richedit2.lines);