memo1为什么读不到Stream?
代码如下：

var mstr:TMemoryStream;
begin
mstr:=TMemoryStream.Create;
mstr:=getkqinfo;

memo1.Lines.LoadFromStream(mstr);
end;

function getkqinfo:TMemoryStream;
var mstr:TMemoryStream;
begin
mstr:=TMemorySTream.Create;
with Adoqry2 do
begin
Active := True;
if not IsEmpty then
begin
TBlobField(FieldByName('kqinfo')).SaveToStream(mstr);
end;
end;
result := mstr;
end;

请大家帮忙看下，为什么memo1取不到数，我测试了的，返回来的mstr size大小超过20000。
[解决办法]

引用:

这个我可以肯定的是mstr是取到数了，但memo1就是读不了这个mstr

上边的例子演示了stream读取

如果你确定mstr不为nil, 执行下 mstr.Position := 0;