我曾用以下方法
while not adostoredproc1.Eof do
begin
ppp^:=adostoredproc1.Fields[2].asstring; //ppp为指针
p_list.Add(trim(adostoredproc1.Fields[2].asstring));t_node:=t_data.Items.AddChildObject(t_data.Selected,adostoredproc1.Fields[0].asstring +'('+adostoredproc1.Fields[1].asstring+')',ppp);
t_node.ImageIndex:=0 ;
adostoredproc1.Next;
end;
但在 树型控件的onchange事件中测试
showmessage(pstr(t_data.selected.data)^)却为最后一个节点的值
while not adostoredproc1.Eof do
begin
ppp^:=adostoredproc1.Fields[2].asstring; //ppp为指针
p_list.Add(trim(adostoredproc1.Fields[2].asstring));t_node:=t_data.Items.AddChildObject(t_data.Selected,adostoredproc1.Fields[0].asstring +'('+adostoredproc1.Fields[1].asstring+')',ppp);
t_node.ImageIndex:=0 ;
adostoredproc1.Next;
end;
但在 树型控件的onchange事件中测试
showmessage(pstr(t_data.selected.data)^)却为最后一个节点的值
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货