对于数据表中得一个blob（memo型）字段，用TQuery怎么插入一个字符串啊！（100分求救）

Question

var Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  Stream.Read(Stream,SizeOf(Memo1.Text));
  TBlobField(query1.FieldByName('content')).LoadFromStream(Stream);
  Stream.Free;
end;

Answer 1

sorry! the fourth line is: Stream.Write(Stream,SizeOf(Memo1.text))

Answer 2

procedure TForm1.Button1Click(Sender: TObject); 
var 
  Stream: TBlobStream; 
  S: string; 
begin 
  with Table1 do 
  begin 
    Open; 
    insert; 
    FieldByName('ID').AsInteger:=3; 
    Stream :=TBlobStream.Create(TBlobField(FieldByName('Fingers')),bmReadWrite ); 
    try 
      Stream.Seek(0, 2);  
      S := 'My Blob Stream Data';   
      Stream.Write(pchar(S)^, Length(S)); 
    finally 
      Stream.Free; 
    end; 
    Post; 
  end; 
end;