急

Question

a 是不是TBlobStream类型？
把table1.Edit去掉试试

Answer 1

var a:tblobstream;
b:tmemorystream;
   str:tstrings;
begin
//  ctrl_load();
b:=tmemorystream.Create ;
 query1.Close ;
  query1.Open ;
  a:=tBlobStream.Create (tblobfield(query1.FieldByName('modul_text')) ,bmread );
      memo1.Lines.LoadFromStream(a);
      try
b.CopyFrom(a,a.Size )  ;//出错stream read error ???????????
      memo2.Lines.LoadFromStream(b);
   finally
  a.Free;
  b.free;      end;