TreeView以流的方式加载的问题!

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  S:TMemoryStream;
begin
  S:=TMemoryStream.Create();
  TreeView1.SaveToStream(S);
  TreeView2.LoadFromStream(S);
  S.Free;
end;这样做,TreeView2为什么不能成功地显示和TreeView1中的数据呢?
要像以下代码那样才行.就是说先保存为文件才行.procedure TForm1.Button1Click(Sender: TObject);
var
  S:TMemoryStream;
begin
  S:=TMemoryStream.Create();
  TreeView1.SaveToStream(S);
  S.SaveToFile('c:\1.txt');
  TreeView2.LoadFromFile('c:\1.txt');   ]
  S.Free;
end;
我能否只通过流来加载实现呢.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  S:TMemoryStream;
begin
  S:=TMemoryStream.Create();
  TreeView1.SaveToStream(S);
  S.Position := 0; // 加一条
  TreeView2.LoadFromStream(S);
  S.Free;
end;
如果Postion在流的末尾,是读不出任何东西的

Answer 2

S.Position := 0; 弓虽哥哥言兑白勺有王里

Answer 3

注意重置流的位置
S.Position := 0
or
S.Seek(0,soFromBeginning)