如何将treeview中的内容在listbox中显示出来呢？

Question

我现在将数据库中的内容在treeview中显示出来了，这个树只有两层，现在还有一个listbox,用于将treeview中选中的内容显示出来。有两个按扭，全选按扭，在treeview中底层内容的全部内容在listbox中显示；添加按扭，将trewview中选中的底层内容在listbox中显示，规定父节点不能选中加入listbox。
  如何完成？最好给出原代码，多谢各位大侠，在线等待！

Answer 1

//全选
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
  s:string;
begin
  i:=form1.TreeView1.Items.Count;
  if i>0 then
  begin
    for j:=0 to i-1 do
    begin
      if form1.TreeView1.Items.Item[j].Parent=nil then
      else
      begin
        s:=form1.TreeView1.Items.Item[j].Text;
        form1.ListBox1.Items.Add(s);
      end;
    end;
  end;
end;
//添加
procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
begin
  if form1.TreeView1.SelectionCount=1 then
  begin
    s:=form1.TreeView1.Selected.Text;
    form1.ListBox1.Items.Add(s);
  end;
end;

Answer 2

form1.ListBox1.Items.Add(form1.TreeView1.Selected.Text);