TTreeView 的问题

Question

var
  i: Integer;
  root_node: TTreeNode;
  child_node: array of TTreeNode;  // 定义字节点数组
begin
  for i:= 0 to DataMdl.ADOQuery1.RecordCount-1 do
  begin
    ...
    这部分动态增加节点, 该如何实现 ?
    ...
    DataMdl.ADOQuery1.Next;
  end;
end;

Answer 1

root_node:=treeview.Items.Add(NIL,'*****');
begin
  setlength(child_node,DataMdl.ADOQuery1.RecordCount);
  for i:= 0 to DataMdl.ADOQuery1.RecordCount-1 do
  begin
    child_node[i]:=:=treeview.Items.Addchild(root_node,Fieldbyname('***').AsString);       
    DataMdl.ADOQuery1.next;
  end;
end;

Answer 2

多谢!
顺便问一下:
setlength(child_node,DataMdl.ADOQuery1.RecordCount);
这个函数的作用?

Answer 3

设置动态数组的长度。你可以DOWM一个大富翁离线资料 www.delphifans.com中有5年600多M，能查到很多东西