关于TTreeview(100)

C

chenp1688

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-15

• #1

各位大侠：请教；关于TTreeview.我在数据库里设计了一张表，列名分别为：主ＩＤ 上级ＩＤ 级数 名称1 0 1 计量单位2 1 2 重量组3 2 3 公斤我把这张表的数据创建在树型控件TTreeview里．问：一，如何在创建TTreeview节点时把＂上级ＩＤ＂＂级数＂　　　　计录下来？(怎样用指针记录变量问题)　　二，如何在选择TTreeview节点时，获取记录下来的＂上级ＩＤ＂＂级数＂的值?

 

M

manjel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-15

• #2

用 TTreeNode.Data 来保存申请的指针.PInfor=^TInfor;TInfor=Record ID,level:Integer; end;PInfor;赋值New(P);P^.ID:=0;P^.Level=1;TmpNode.Data:=P;引用PInfor(TmpNode.Data)^.ID;最后删除节点时不要忘了 Dispose(TmpNode.data);TmpNode.data:=nil;

 

火

火焰领主打伞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-15

• #3

你做一个查询。a[0]:=‘0’;b[0]:='0';while{ for i := low(a)to high(a) do begin sql:= select * from table where jibie =''''+a+''''' ......//查询实现 a :=''; b:= ''; j:=0; while not end of begin a[j]:= 主ＩＤ ; // j:=j+ 1; settreeview//设置数节点。 end; end;}

 

C

chenp1688

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-15

• #4

感谢两位的帮助:我的问题还漏了下面.请指教主ＩＤ 上级ＩＤ 级数 名称1 0 1 物料类别2 1 2 板材类3 2 3 聚胶板类４　　　　３　　　　３ 三合板类5 3 4 双面板类6 5 5 光面板类7 6 6 白色类8 1 2 掉顶类如何用循环把内容添加到TTreeview里？

 

火

火焰领主打伞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-15

• #5

我的算法已经给你实现了，你 自定义函数settreeview，实现在TREEVIEW下添加节点或子节点就行了，用函数treeview.items.addchild()可以实现。while 循环你自己设置一个退出条件就行了。

 

C

chenp1688

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-15

• #6

多人接受答案了。

 

C

chenp1688

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-07-15

• #7

火焰领主打伞,你能对你这个算法再详细一点吗？谢谢