treeview的问题

Question

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var ChildNode: TTreeNode;
0Abegin
  ChildNode := Node;
  ListBox1.Items.Clear;
  ListBox1.Items.Add(ChildNode.Text);
  while ChildNode.HasChildren do
  begin
    ChildNode := ChildNode.getFirstChild;
0A    ListBox1.Items.Add(ChildNode.Text);
  end;
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

界面上一个button 一个listbox 一个treeview
treeview 初始加如测试用若干节点
下面是button的click事件
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  xNode:TTreeNode;
begin
  xNode:=treeview1.Selected.getFirstChild;  while xNode<>nil do
  begin
    listbox1.Items.Add(xNode.Text);
    xNode:=xNode.GetNextChild(xNode);
  end
end;

Answer 2

procedure CopyNode(ANode: TTreeNode; AListBox: TListBox);
var I: Integer;
begin
  if Assigned(ANode) and Assigned(AListBox) then
  begin
    AlistBox.Clear;
    for I := 0 to ANode.Count - 1 do
      AListBox.Items.Add(ANode.Item[I].Text);
  end;
end;procedure TForm1.TreeView1Click(Sender: TObject);
begin
  CopyNode(TreeView1.Selected, ListBox1);
end;