TreeView 和指针的问题

Question

TreeID:Array of integer;  //用来保存树枝的ID,也就是在程序运行的过程中为树枝的Data;
  TreeNum:integer;//所有数组的个数
......
/首先从数据库查询parentID=0的节点,作为根结点添加到树枝中
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear ;
   strQuery:='select name,ID from list where parent=0';
   ADOQuery1.SQL.Add(strQuery);
   ADOQuery1.Open ;   while not ADOQuery1.Eof  do
   begin//增加跟节点
         SetLength(TreeID,5);
        TreeID[TreeNum]:=ADOQuery1.FieldByName('ID').AsInteger ;        child:=TreeView1.Items.Add(nil,ADOQuery1.FieldByName('Name').Value);
        child.Data :=Pointer(TreeID[TreeNum]);//这里出错        
        ADOQuery1.Next ;
　　　　
        //下面这里就出错了，也就是不能提取当前节点Node.data
        ShowMessage(string(child.Data ^));
        TreeNum:=TreeNum+1;
   end;
请问应该怎么处理保存TreeView 的data？
从数据库中读取Node.text Node.data，当点击树节点的时候应该能根据node.data检索数据，因为如果根据node.text恐怕不行，node.text不唯一啊 node.data唯一,
请高手指点

Answer 1

你既然已经把ID取出来了，当然是使用Data了。给一段代码供参考： 
          New(idTmp);
          idTmp^ := Fields[0].AsString;
          root2 := tvList.Items.AddChildObject(root, Fields[1].AsString, idTmp);

Answer 2

CHILD是什么类型啊，看不明白，我给你一个浏览数据库的例子，这是我自己做的，执行通过，但我估计可能有多余代码，你看看吧
var tt:ttreenode;
function TForm1.itemxd(no:ttreenode;st:string):boolean;
var nn:ttreenode;
begin
   if no.Parent<>nil  then
   begin
      nn:=no.Parent;
      while no<>nil do
         if no.Text=st then
         begin
            tt:=no;
            result:=true;
            exit;
         end
         else
            no:=nn.GetPrevchild(no);
   end
   else
    begin
       while no<>nil do
         if no.Text=st then
         begin
            tt:=no;
            result:=true;
            exit;
         end
         else
            no:=no.GetPrev;
   end;
      result:=false;end;
procedure TForm1.loadtree;
var ss,aa,dd,mm,nn:string;
    node,nodes,kk:ttreenode;
    ppp:tbook;
begin
   treeview1.Items.Clear;
   with adoquery1 do      begin
         close;
         sql.Clear;
         sql.Add('select 界数,班级,姓名,学号,性别 from js');
         open;
       disablecontrols;
       ppp:=getbook;
   try
         first;
          ss:=fieldbyname('界数').asstring;
            aa:=fieldbyname('班级').asstring;
            dd:=fieldbyname('姓名').asstring;
            mm:=fieldbyname('学号').AsString;
            nn:=dd+'('+mm+')';
            node:= treeview1.Items.Add(nil,ss);
            node.ImageIndex:=0;
            nodes:=treeview1.Items.Addchild(node,aa);
            nodes.ImageIndex:=1;
            kk:=treeview1.Items.Addchild(nodes,nn);            if fieldbyname('性别').AsString='男' then
               kk.ImageIndex:=2
            else
               kk.ImageIndex:=4;
            next;
         while not eof do
         begin
            ss:=fieldbyname('界数').asstring;
            aa:=fieldbyname('班级').asstring;
            dd:=fieldbyname('姓名').asstring;
            mm:=fieldbyname('学号').AsString;
            nn:=dd+'('+mm+')';
            if itemxd(node,ss)=false then
            begin
               node:= treeview1.Items.Add(nil,ss);
               node.ImageIndex:=0;
               nodes:=treeview1.Items.Addchild(node,aa);
               nodes.ImageIndex:=1;
               kk:=treeview1.Items.Addchild(nodes,nn);
              if fieldbyname('性别').AsString='男' then
               kk.ImageIndex:=2
            else
               kk.ImageIndex:=4;
            end
            else
            begin
               nodes:=tt.getlastChild;
               if itemxd(nodes,aa)=false then
               begin
                  nodes:=treeview1.Items.Addchild(tt,aa);
                  kk:=treeview1.Items.Addchild(nodes,nn);
                  nodes.ImageIndex:=1;
                  if fieldbyname('性别').AsString='男' then
               kk.ImageIndex:=2
            else
               kk.ImageIndex:=4;
               end
               else
               begin
                  kk:=treeview1.Items.Addchild(tt,nn);
                  if fieldbyname('性别').AsString='男' then
               kk.ImageIndex:=2
            else
               kk.ImageIndex:=4;
               end;
            end;
            next;
         end;      finally
          if ppp<>nil then
          begin
          gotobook(ppp);
          freebook(ppp);
          end;
          enablecontrols;
        end;
      end;
     

Answer 3

TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：
1、count，节点个数。(节点总数)
2、item[index]  ,通过index得到节点。(节点号) 二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：
AddFirst添加第一个根节点。由此函数添加的节点总排在前面，除非后来又使用此函数添加了一个节点，则后添加的节点将排在前面。该函数返回新添加的节点。
AddChildFirst添加第一个子节点，要求有父节点作为其参数。返回新添加的节点。
AddChild添加一个子节点，要求有父节点作为其参数。返回新添加的节点。
Add添加一个兄弟节点，要求有兄弟节点作为其参数。返回新添加的节点。三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有：
GetFirstNode() 得到根节点。
然后配合TTreeNode.GetNext(),就可以访问所有的节点。四、建树举例：var
  root_node,cur_node:TTreeNode;
begin
  root_node:=AddFirst(nil,'根节点1');
  cur_node:=addChildfirst(root_node,nil,'根节点1_child1');
  add(cur_node,'根节点1_child2');
  root_node:=Add(nil,'根节点2');
  AddChildFirst(root_node,''根节点2_child1');  
end; 五、事件触发：
当从一个节点跳到另一个节点，会触发TTreeView.OnChange事件。该事件中，将传递node,即当前被选中的节点。当修改一个节点的text时，会触发TTreeView.onEdit事件。
六、将节点和节点所对应的数据联系起来
对于每个TTreeNode,有个Data属性，可以存放一个指针。我们可以利用这个域来存放与节点对应的自己的数据。
1.我们先定义一个数据结构，作为记录我们要记录的数据。如：
type 
  PMyData=^TMyData;
  TMyData=Record
    sFName:string;
    sLName:String;
    nIndex:integer;
  end;2.然后，创建数时，将节点和节点数据联系起来：
procedure TForm1.Button1Click(Sender: TObject);
var
  myshuju: PMyData
  cur_node:TTreeNode;
begin
  New(MyRecPtr);  //记住，一定要先分配内存。有几个节点，就要分配几次内存。
  myshuju^.FName:=Edit1.Text;
  Myshuju^.LName := Edit2.Text;
  TreeViewIndex := StrToInt(Edit3.Text);
  with TreeView1 do
  begin
    cur_node:=items.AddFirst(nil,'first');
    cur_node.data:=myshuju;
  end;
end;3.当我们选中一个节点时，就可以使用我们的数据了。
procedure  TForm1.TreeView1Change(Sender:TObject;Node:TTreeNode);
begin
   if node.data<>nil then
    self.label1.caption:=pmyData(node.data)^.Fname+pmyData(node.data)^.Lname
end;
七、一般使用流程：
1、添加全局变量：
   b_first:boolean;  //记录是否是第一次访问节点，因为此时数据还未准备好，而一旦访问节点就会触发OnChange事件，在此事件处理函数中也许会出错。
2、在FormCreate中，
  a、设置b_first:=true;
  b. 创建数并将节点与数据联系。
3、在FormShow中
  设置b_first:=false;
4.在事件OnChange中处理节点被选中事件。
5.在Edit中处理节点被修改Text事件。
  并调用OnChange.
6.在 TreeView.Destory中
  释放Data 中指向的内存空间。TreeView 是一个显示树型结构的控件,每一个节点都是一个新类,
使用具有代表性
每个节点都有四个值:
TEXT:显示文字 Image Index:显示图形序号
Selected Index:
State Index:(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)增加根目录下的节点:(节点)
var
CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
{ 在根标题下建立一个新的子标题 }
CatNode := TvwTips.Items.AddChild( 
TvwTips.Items.GetFirstNode,'New Category' );
CatNode.ImageIndex := 1;
CatNode.SelectedIndex := 2;
CatNode.EditText; { 允许用户改变这个标题 }
end;增加下一级目录(内容):
var
ParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用
的子对象
VersionNum : Integer;
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }
ParentNode := TvwTips.Selected; { 取出当前的选中节点 }
if ParentNode.Level = nlTip then{ Parent cannot be a tip node }
ParentNode := TvwTips.Selected.Parent;TipNode := TvwTips.Items.AddChildObject( ParentNode,'New 
Subject',Pointer( VersionNum ) );
TipNode.ImageIndex := 3; { Normal tip bitmap }
TipNode.SelectedIndex := 4; { Highlighted tip bitmap }
TipNode.MakeVisible; { Move new tip node into view }
TipNode.EditText; { Immediately allow user to edit subject }
EnableTreeViewFunctions( TipNode.Level );
RtfTip.Clear;
RtfTip.Modified := False;
end;(2)说明
TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点,函数类型为
:TTreeNode 
TvwTips.Items.Count 返回当前TreeView的全部节点数,整数
TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别,
根目录为0
TvwTips.Selected.Parent 返回当前选中节点上级节点,函数类型为
:TTreeNode 
      　　 

Answer 4

楼上的朋友贴了好多东西呀～简单说说data，它保存的是指针，就是地址。而数组其实也是指针，明白了吗？另外在treeview的生存期不要释放data中所保存地址里的数据（有点混乱，不过你这里好像用不到），否则指向一个无效地址，后果可想而知。

Answer 5

var 
  chilad:TreeNode;
如果采用以下的方法
var
  p:Pinteger;...    ADOQuery1.Close;
   ADOQuery1.SQL.Clear ;
   strQuery:='select name,ID from list where parent=0';
   ADOQuery1.SQL.Add(strQuery);
   ADOQuery1.Open ;
new(p);//把new(p)放在这里则添加的所有的item的ｄａｔａ是一样的，是最好一个添加的Dat.这个是因为指针都指向了最后一个地址
p^:=ADOQuery1.FieldByName('ID'):
   while not ADOQuery1.Eof  do///如果把new(p)放在这里则会把系统内存耗费完！！！！
   begin//增加跟节点
        child:=TreeView1.Items.Addobject(nil,ADOQuery1.FieldByName('Name').Value,p);      
        ADOQuery1.Next ;   end;

Answer 6

因为是从数据中读取节点的Text,Data 当然Tex可能一样,但是 Data接是唯一的了.所以鼠标点击树枝节点的时候应该是根据Data来从数据库再读取另外的东西
所以就存在一个问题是如何保存节点data的问题,
还请注意了,节点并不是一个!!数目是未知的!
如果用new(p1),new(p2),,,,,,new(px)kon恐怕不怎么好
所以决定用一个全局数组来保存节点的Data  但是如题,提示出错不知道为什么!!!

Answer 7

全局变量： arr : array[0..2] of integer;for i := 0 to 2 do
begin
   arr[i] := i+2;
end;
TreeView1.Items.GetFirstNode.Data := @arr[0];
赋值，注意只给第一个节点的data赋值了procedure TForm1.TreeView1Click(Sender: TObject);
begin
    ShowMessage(IntToStr(Integer(TreeView1.Selected.Data^)));
end;数组就相当于指针，直接用它的地址就好了。
小心别指到无效地址。