2,498
社区成员
发帖
与我相关
我的任务
分享
var
dataStream:TMemoryStream;
begin
dataStream:=TMemoryStream.Create;
............
//赋值
RichEdit1.Lines.SaveToStream(dataStream);
TBlobField(ADOQuery1.FieldByName('richeditField')).LoadFromStream(dataStream);
............
//读取
TBlobField(ADOQuery1.FieldByName('richeditField')).SaveToStream(dataStream);
RichEdit1.Lines.LoadFromStream(dataStream);
dataStream.Free;
end;
//读取
TBlobField(ADOQuery1.FieldByName('richeditField')).SaveToStream(dataStream);
RichEdit1.Lines.LoadFromStream(dataStream);