dxRichEditControl 从数据库加载内容和保存内存到数据库 其它

风神 2021-5-14 388

 从数据库加载

procedure TForm1.SyncMemo;  
var  
  Stream: TMemoryStream;  
begin  
  if not MemoDataSet.IsEmpty or (MemoDataSet.State in [dsEdit, dsInsert]) then  
  begin  
    Stream := TMemoryStream.Create;  
    try  
      TWideMemoField(MemoDataSet.FieldByName('Comments')).SaveToStream(Stream);  
      Stream.Position := 0;  
      recRichEditControl.DocumentModel.LoadDocument(Stream, TdxDocumentFormat.Rtf, '');  
    finally  
      Stream.Free;  
    end;  
  end;  

end;  

保存到数据库




DelphiTop论坛申明 1、本网站名称:DelphiTop论坛  网址:www.DelphiTop.com
2、专注于互联网分享精神,专注收藏与分享。你薅网友,我就薅你。
3、本站资源,如发现链接失效,可联系QQ 16643506进行反馈,我们会第一时间更新。
最新回复 (6)
  • wolfhelin 2021-5-14 0
    2
    牛啊,好资料
  • dacsd 2021-5-17 0
    3
    牛啊,好资料
  • jianmufei 2021-10-22 0
    4
    牛啊,好资料
  • any 2021-12-4 0
    5
    看看,试试看能不能用
  • 大壶 2022-11-7 0
    6
    可以,看看能不能适用
  • wws1973 2022-11-27 0
    7
    看看,看能不能用。
返回