Delphi关于流存储的问题求教!!!
葫芦老四 2015-01-31 02:00:55 我现在有一个用流的方式对数据进行保存的方法,数据采用的是RXRICHEDIT控件,内容可能是图文混排的,下面是我的代码,问题是内容比较多的时候速度很慢,求教大神们有没有好办法可以加点速度!
MyMemoStr:=TMemoryStream.Create;
TBlobField(qry3.FieldByName('内容')).SaveToStream(MyMemoStr);
MyMemoStr.Position:=0;
RxRichEdit1.Lines.LoadFromStream(MyMemoStr);
MyMemoStr.Free;
以上是读取原来的数据,我需要在原来的数据上添加新内容后再存回去,下面是代码
RxRichEdit2.SelectAll;
RxRichEdit2.CopyToClipboard;
RxRichEdit1.SelStart:=Length(RxRichEdit1.Text);
RxRichEdit1.SetFocus;
RxRichEdit1.PasteFromClipboard;
MyMemoStr:=TMemoryStream.Create;
RxRichEdit1.Lines.SaveToStream(MyMemoStr);
RxRichEdit1.ReadOnly:=True;
qry1.Edit;
Tblobfield(qry3.FieldByName('内容')).LoadFromStream(MyMemoStr);
qry1.Post;
MyMemoStr.Free;
上面这种方法虽然能实现,但速度非常慢,请教大神们帮忙啊!