关于TRichEdit的两个问题

Question

1.怎样将TRichEdit中带格式的文本写入数据库中相应字段？可以用数据库中创建bolb字段，然后像普通字段一样赋值就可以了

Answer 1

var
  TempStream : TMemoryStream;
begin
  TempStream := TMemoryStream.Create;  richedit1.lines.SaveToStream(TempStream);                                              
  TempStream.Position := 0;     
  RichEdit1.Lines.LoadFromStream( TempStream);   TempStream.Free;

Answer 2

To:delphi0302(dr) 把什么内容赋值给Blob字段？