本来想把下面这些代码写在你给出的过程里,但我认为你的树是一个递归树,
用你原来的写法不太好,因为你添加两层可以,但如果是三层,四层呢,
所以就没有写进去,还是给你说详细一点你自己处理吧,
Treeifor = ^TMyRec;
TMyRec = record
ID : string;//id号
Name : string;//名称
JB:String;//级别
Tag : Integer;
end;//把这段代码写在你要写代码的类里,公有,私有随你便,
如果还想加其它的值的话也可以在end;前面加上你所想加的值就可以了,
var WZInfo:Treeifor;//把这段代码写在过程定义变量的地方,
New(WZInfo);
WZInfo^.ID:=table.FieldValues[记录ID号];
WZInfo^.Jb:=table.FieldValues['级别'];
WZInfo^.Name:=table.FieldValues['名称'];
TreeView1.Items.AddObject(nil,WZInfo^.Name,WZInfo);//这段代码是添加结点的时候要用到的,
当点击树的结点的时候取相应的值
//取出级别:Treeifor(TreeView1.Selected.TreeNode.Data)^.JB
//取出记录ID:Treeifor(TreeView1.Selected.Data)^.ID
现在可以取出ID来了,那么后面的事就不难了吧,
下面是我写的释放函数：写的可能不好
function funFreeTreeViewNodeData(aNode: TTreeNode): integer;
begin
Result := -1;
if Assigned(aNode.Data) then
begin
try
Dispose(Treeifor(aNode.Data));
aNode.Data := nil;
except
on E: Exception do
Application.MessageBox(PChar(E.Message),
'释放树型节点指针(Data)时发生错误', 0);
end;
end;
Result := 1;
end;
]
]