在DELPHI里,给Treeview添加节点怎么添加!
请给段代码,象在VB里这样
Dim Nod As Node
Set Nod = TreeView1.Nodes.Add(, , "qiantai", "前台收银", 1)
Set Nod = TreeView1.Nodes.Add("qiantai", tvwChild, "diancai", "点菜单", 5)
Set Nod = TreeView1.Nodes.Add("qiantai", tvwChild, "jiezhang", "结帐", 6)
     Set Nod = TreeView1.Nodes.Add(, , "chaxin", "经理查询", 2)
     Set Nod = TreeView1.Nodes.Add(, , "weihu", "资料维护", 3)
     Set Nod = TreeView1.Nodes.Add(, , "guanli", "系统管理", 4)