一、
{从流中读取} procedure TForm1.Button3Click(Sender: TObject); var stream: TStream; begin stream := TMemoryStream.Create; try Memo1.Lines.SaveToStream(stream); stream.Position := 0; TreeView1.LoadFromStream(stream); finally stream.Free; end; end;
参考:http://www.cnblogs.com/del/archive/2008/03/12/1102247.html
二,从流中读取
{初始化} procedure TForm1.FormCreate(Sender: TObject); var stream: TMemoryStream; begin TreeView1.Align := alLeft; stream := TMemoryStream.Create; with TStringList.Create do begin Add('2'); Add('3'); Add('1'); Add('4'); Add(#32'2'); Add(#32'3'); Add(#32'1'); Add(#32'4'); Add(#32#32'2'); Add(#32#32'3'); Add(#32#32'1'); Add(#32#32'4'); SaveToStream(stream); Free; end; stream.Position := 0; TreeView1.LoadFromStream(stream); TreeView1.SortType := stNone; stream.Free; Button1.Caption := '排序第一层'; Button2.Caption := '全部排序'; Button3.Caption := '指定排序类型'; Button4.Caption := '倒排序'; Button5.Caption := '初始化'; end;
参考链接:http://www.cnblogs.com/del/archive/2008/03/13/1103445.html
3,从流中读取
procedure TForm1.FormCreate(Sender: TObject); var stream: TStream; begin TreeView1.Align := alLeft; stream := TMemoryStream.Create; with TStringList.Create do begin Add('一连长'); Add(' 一排长'); Add(' 一班长'); Add(' 战士1'); Add(' 战士2'); Add(' 战士3'); Add(' 战士4'); Add(' 二班长'); Add(' 三班长'); Add(' 二排长'); Add(' 三排长'); Add('二连长'); Add('三连长'); SaveToStream(stream); Free; end; stream.Position := 0; TreeView1.LoadFromStream(stream); stream.Free; TreeView1.DragMode := dmAutomatic; {允许自动拖放} end;
参考链接:http://www.cnblogs.com/del/archive/2008/03/13/1104035.html