关于Treeview

Question

有：部门编号，部门名称
想把对应部门名称的部门编号存入Treenode.data怎么实现？
谢谢先！

Answer 1

http://expert.csdn.net/Expert/topic/2297/2297760.xml?temp=.4412653http://expert.csdn.net/Expert/topic/2296/2296121.xml?temp=.2295954

Answer 2

var firstnode:TTreeNode;
begin
  firstnode := TreeView1.Items.Add(TreeView1.Items.GetFirstNode,'部门名称');
  TreeView1.Items.AddChild(FirstNode,'部门编号');
end;
//用循环就可以实现了

Answer 3

type
  PMyrecord = ^Myrecord;
  Myrecord = record
           ID : integer;
           name:string;
           end;//end of recordvar
  tmpNode : TTreeNode;
  p : PMyrecord;
begin
  new(p);
  p.ID := 部门编号;
  p.name := 部门名称;
  tmpNode := TreeView1.Items.AddObject(Node,p.name,p);
  dispose(p);
end;

Answer 4

http://expert.csdn.net/Expert/topic/2377/2377736.xml?temp=.4123346

Answer 5

读出Data中数据时：
var 
  intID:Integer;
  StrName: String;intID:=PMyrecord (treeview1.Selected.Data).id;
StrName:=PMyrecord (treeview1.Selected.Data).Name;

Answer 6

怎么把存在data属性中的值取出来，怯怯的问。

Answer 7

TreeView1.Items.AddObject(Node,TypeName.Property,^TypeName);with TypeName(TreeView1.Selected.Data) do