能否举例说明?

解决方案 »

  1.   

    我来!
    type
    Data =packed record
       ID :String;
      end;
    PData = ^Data;var
      ps: PData;
    begin
        New(Ps);
        Ps^.ID := 'TableID';
        tvWd.Items.AddChildObject(tvWd.Items[0],'朋友你好',Ps);
     
    end;
    这样生成的一个树可以根据选择的结点来获得诸如:表的ID等;以下高手来!!*_*
      

  2.   

    最后,不用树的时候,记得释放树节点指针:
            var
                I : integer;
           begin
               for I := 0 to TreeView.Items.Count - 1 do
                 begin
                   Dispose(TreeView.Items[I].Data);
                   TreeView.Items[I].Data := nil;
                 end;
          end;
      

  3.   

    没有信息要存放就不要用addobject(),用add()就行了
      

  4.   

    如果你想用到数据库的主键(或给Treeview定义一个唯一主键),那么Treeview.items.data属性就非常有用。