关于delphi中类强烈转换的问题

Question

我想把TStream转换成TStringStream，如何操作呢？我想把TMemoryStream里面的数据存成一个字符串，如何弄呢？

Answer 1

TStream是一个抽象类
MemoryStream.SaveToStream(stringstream)

Answer 2

1)我想把TStream转换成TStringStream，如何操作呢？ 
var
  sm: TStream;
  ssm: TStringStream;if sm is TStringStream then
  ssm := TStringStream(sm);2)我想把TMemoryStream里面的数据存成一个字符串，如何弄呢？
var
  Mem: TMemoryStream;
  S, sout: String;
begin
  Mem := TMemoryStream.Create;
try
  S := '我想把TMemoryStream里面的数据存成一个字符串，如何弄呢？';
  Mem.Write(S[1], Length(S));  SetLength(sout, Mem.Size);
  Mem.Position := 0;
  Mem.Read(sout[1], length(sout));
  ShowMessage(sout);
finally
  Mem.Free;
end;
end;