5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
hotdog911 2003-11-10
- 打赏
- 举报
可以先将treeview1的内容保存在一个文本文件中，然后让treeview2从文本中读取
treeview1.savetofile('文件名.txt');
treeview2.loadfromfile('文件名.txt');
可以很快的复制treeview
treeview1.savetofile('文件名.txt');
treeview2.loadfromfile('文件名.txt');
可以很快的复制treeview
DongXF 2003-11-10
- 打赏
- 举报
這樣可以吧
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
TreeView1.SaveToStream(Stream);
Stream.Position := 0;
TreeView2.LoadFromStream(Stream);
finally
Stream.Free
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
TreeView1.SaveToStream(Stream);
Stream.Position := 0;
TreeView2.LoadFromStream(Stream);
finally
Stream.Free
end;
end;
sunkyling 2003-11-10
- 打赏
- 举报
treeView1 是可以显示内容的树,那么 treeview2.assign(treeview1) 可以让TREEVIEW2显示TREEVIEW1显示同样的内容吗?
zzh54zzh 2003-11-10
- 打赏
- 举报
sorry,sorry,没有注意斑竹的回复。
我的机子坏了，现在用的别人的机子，没有delphi-_-!
我的机子坏了，现在用的别人的机子，没有delphi-_-!
zzh54zzh 2003-11-10
- 打赏
- 举报
treeview2.Assign(treeview1);
就可，简单方便，不用什么递归~
就可，简单方便，不用什么递归~
sunkyling 2003-11-10
- 打赏
- 举报
如果是TREEVEIW2.ASSIGGN(TREEVIEW1) 的话,treeview2只是获得的TREEVIEW1 的指针
tonylk 2003-11-10
- 打赏
- 举报
treeview2.Assign(treeview1);
