stream 之间的互相拷贝问题？

Question

///RichEdit1得不到任何数据，奇怪了
var
  TempStream ,T: TMemoryStream;begin
  TempStream := TMemoryStream.Create;
   t := TMemoryStream.Create;  ListBox1.Items.SaveToStream(TempStream);  
                                           
  TempStream.Position := 0;       
  
  t.Seek(0,soFromBeginning);
  t.CopyFrom(tempstream,0);  RichEdit1.Lines.LoadFromStream( t); // 问题是 T 是空
                                              
  t.Free;
  TempStream.Free;
end;

Answer 1

CopyFrom之后要重新设置位置： t.Position:=0;

Answer 2

var
  TempStream ,T: TMemoryStream;
begin
  TempStream := TMemoryStream.Create;
  t := TMemoryStream.Create;
  try
    ListBox1.Items.SaveToStream(TempStream);  
    TempStream.Position := 0;       
    t.Seek(0,soFromBeginning);
    t.CopyFrom(tempstream,0);
    t.Position := 0;       
    RichEdit1.Lines.LoadFromStream( t); 
  finally                                          
    t.Free;
    TempStream.Free;
  end;
end;