602
社区成员
发帖
与我相关
我的任务
分享
TMemoryStream * NewStyleStream;
NewStyleStream = new TMemoryStream();
//rzRichEdit1->Lines->SaveToStream(NewStyleStream);
((TBlobField*)(MyQuery1->FieldByName("report")))->SaveToStream(NewStyleStream);
NewStyleStream->Position = 0;
((TRMRichView*)RMReport1->FindObject("Rich1"))->RichEdit->Lines->LoadFromStream(NewStyleStream);
delete NewStyleStream;