谁帮我一个小问题，得分容易，加分简单！！

Question

1.Under Win 9x, there is a limit of 64k of text for this control.Win2k没有限制。2.为什么不用TDBMemo？

Answer 1

Memo1.Lines.SavetToStream(FileStream);
TBlobField(Table1.FieldByName('Memo')).LoadFromStream(FileStream);

Answer 2

to Apollo47(阿波罗): 如果我想用Sql中的insert语句，又该如何将Memo1的文本存入Blob类型字段？？

Answer 3

var
  msTmp: TStream;
begin
  ...
  //存到数据库
  msTmp:= TMemoryStream.Create;
  Memo1.Lines.SaveToStream(msTmp);
  (Table1.FieldByName('xxx') as TBlobField).LoadFromStream(msTmp);
  ...
  //读出到Tmemo控件
  (Table1.FieldByName('xxx') as TBlobField).SaveToStream(msTmp);
  msTmp.Seek(0,0);
  Memo1.Lines.LoadFromStream(msTmp);
  ...
end;

Answer 4

to VictorG(): 如果我想用Sql中的insert语句，又该如何将Memo1的文本存入Blob类型字段？？ 

Answer 5

Query1.SQL.Add('insert into dbo.TXB_FILE_MANAGE (f_code, f_sort, f_id, year, f_y_id, content) VALUES(''04'', ''1'', 4, 2002, 4, :aaa))')
Query1.Params 属性
    item
      DataType = ftMemo
      Name = 'aaa'
      ParamType = ptInput  Query1.ParamByName('aaa').AsMemo:= Memo1.Text;
  Query1.ExecSQL;我做过测试，Memo1中存放1,754,688字节没有问题。