Table与TreeView的问题？？？？？？？？？

Question

各位大哥：
 我要用TreeView获取Table中的字段创造一个树型结构？？？？
 请各位帮忙？？？？？？？？？
 UP 也有分！
 写代码的给分最多！

Answer 1

先select要加入树的字段
再用循环addobject
这样行吗?

Answer 2

还有别的方法吗？
 tyh800220(风林火山) 可不可写一段呀！？？？？？？？

Answer 3

var
  ClassTreeNode: TTreeNode;
  TypeTreeNode: TTreeNode;
  CommodityTreeNode: TTreeNode;
begin
//--------------------- 初始化目录窗口-----------------
    Table.Active:=true;
    TreeView.Items.Clear;
    ClassTreeNode:= TreeView.Items.Add(nil,Table.fieldbyname('Deptname').AsString);    Table.First;
    while not Table.Eof do
    begin
        TypeTreeNode:= TreeView.Items.AddChild(ClassTreeNode,Table.fieldbyname('Deptname').AsString);
        CommodityTreeNode:= TreeView.Items.AddChild(TypeTreeNode,'');
        Table.Next;
    end;    Table.Active := false;