procedure TForm1.Button1Click(Sender: TObject);
var
RootNode,tmpNode:TTreeNode;
i:integer;
begin
RootNode:=TreeView1.Items.Add(Nil,'测试树');
ADODataSet1.First;
While not ADODataSet1.Eof do
begin
for i:=0 to TreeView1.Items.Count-1 do
if TreeView1.Items.Item[i].Text=ADODataSet1.FieldByName('father').AsString then
begin
tmpNode:=TreeView1.Items.AddChild(TreeView1.Items.Item[i],ADODataSet1.FieldByName('son').AsString);
break;
end;
ADODataSet1.Next;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
RootNode,TmpNode:TTreeNode;
i:integer;
begin
TreeView1.Items.Clear;
RootNode:=TreeView1.Items.Add(Nil,'A');
TmpNode:=TreeView1.Items.AddChild(RootNode,'B');
TmpNode:=TreeView1.Items.AddChild(RootNode,'C');
For i:=0 to TreeView1.Items.Count-1 do
if TreeView1.Items.Item[i].Text='B' then
begin
TmpNode:=TreeView1.Items.AddChild(TreeView1.Items.Item[i],'E');
TmpNode:=TreeView1.Items.AddChild(TreeView1.Items.Item[i],'F');
Break;
end;
end;