怎么把RICHEDIT每一行的内容与字体属性复制到另外一个RICHEDIT?

[xie7128]

怎么把RICHEDIT每一行的内容与字体属性复制到另外一个RICHEDIT(这行里不同的字的颜色与其他属性都不同)?

[xie7128]

这样是针对整个RichEdit属性,我需要把每个字体的所有属性都转移到另外的一个RichEdit.

[Waiting4you]

把RichEdit2的内容包含格式复制到RichEdit1里

TMemoryStream *pms = new TMemoryStream;
RichEdit2->Lines->SaveToStream(pms);
pms->Seek(0,0);
RichEdit1->Lines->LoadFromStream(pms);
delete pms;

[xie7128]

也就是把RICHEDIT的某一行的字内容与属性复制出来放到另外一个RICHEIDT中去.我把文字提取出来了,但字体属性提取不出来!希望大家给我一个100分的回答,谢谢!
Richedit1->Lines->Strings[n]=Richedit2->Lines->Strings[n];(字体属性复制不了)

[jacknes009]

Fonts属性把，，

[五哥]

你把Richiedit1的字体属性克隆给另外一个RichEdit应该可以的吧

[TripH0101]

如果是在设计阶段，用复制就可以了，如果是在运行阶段用assign 函数吧
如下：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
this->RichEdit1->Font->Assign(this->RichEdit2->Font ) ;
this->RichEdit1->Lines->Add(this->RichEdit2->Lines->Strings[0] );
}

[laowang2]

TMemoryStream * NewStyleStream;
  NewStyleStream = new TMemoryStream();


  RichEdit1->Lines->SaveToStream(NewStyleStream);

  NewStyleStream->Position = 0;
  RichEdit2->Lines->LoadFromStream(NewStyleStream);

  delete NewStyleStream;

大概就是这样吧