有关树的问题
如何能够使我在一个树中增加一项，在另外的一个树也同时增加相同的项。 问题点数：0、回复次数：6Top
1 楼lonaerd（redhat10）回复于 2003-11-03 18:06:38 得分 0
begin
form1.TreeView1.Selected:=form1.treeview1.Items.AddChild(form1.treeview1.Selected , edit1.text);
form1.TreeView2.Selected:=form1.treeview2.Items.AddChild(form1.treeview2.Selected , edit1.text);
end ;Top
2 楼lonaerd（redhat10）回复于 2003-11-03 18:07:25 得分 0
哦，对不起，错了，我再想想Top
3 楼47522341（睡到8：30）回复于 2003-11-03 18:39:26 得分 0
记录下要加的节点的一些信息；譬如根节点之类的；
然后对另外的那棵树进行遍历；如果没有发现相同的节点；就在你记录的跟节点下加一个节点；
否则推出；
Top
4 楼verveXfaith（）回复于 2003-11-03 18:54:00 得分 0
up+关注!+学习Top
5 楼coolfilm（苏飞工作室）回复于 2003-11-04 09:31:23 得分 0
写一个通用加项的涵数把SENDOR或者OBJECT做为参数.Top
6 楼Linux2001（闭关开发中）回复于 2003-11-04 09:58:19 得分 0
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
TreeView2: TTreeView;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.AddChild(nil, '123');
TreeView2.Items.Assign(TreeView1.Items);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TreeView1.Items.Delete(TreeView1.Items[0]);
TreeView2.Items.Assign(TreeView1.Items);
end;
end.
Top
