如何把一个整型变量的值贼给TreeView.items.item.data
  如何把treevieew.items.item.data赋值给一个整型变量
  DATA是一个指针类型。

解决方案 »

  1.   

    给你写两个例子吧:
    //1.字符串
    procedure TForm1.Button1Click(Sender: TObject);
    var
      //定义
      p_data:pstring;
    begin
      //添加入TreeView
      new(p_data);
      p_data^:='test';
      treeview1.Items.AddObject(nil,'test',p_data);
      //取出数据
      Edit1.text:=pstring(treeview1.Items[0].Data)^;
      //释放p_data
      if p_data<> nil then Dispose(p_data);
    end;
    //2.整数
    procedure TForm1.Button2Click(Sender: TObject);
    var
      //定义
      p_data:pinteger;
    begin
      //添加入TreeView
      new(p_data);
      p_data^:=111;    //在这里赋值,知道吧
      treeview1.Items.AddObject(nil,'test',p_data);
      //取出数据
      Edit1.text:=inttostr(pinteger(treeview1.Items[0].Data)^);  //在这里赋值,不用我多说了吧
      //释放p_data
      if p_data<> nil then Dispose(p_data);
    end;
      

  2.   

    Var
      Sour: Pointer;
      Dest: Pointer;
      BordID: String;
    begin
      Sour:= pChar($FEC71);
      Dest:= @BordID;
    End;
      

  3.   

    var
     i:integer;i:=1
    treeview1.Items.AddObject(nil,'test',pointer(i)); //写i:=integer(treeview1.Items[0].Data)^;  //读