摘要： 首先说下树节点对应的表的基本结构,必需要有的字段(节点编号,父节点编号,节点名称),其他字段根据你开发的需要添加从添加节点开始,一开始就取出表中最大节点编号,每次添加节点的时候,该节点编号增加1;添加节点的时候我们有2个步骤,首先是给treeview树种建立节点;其次是给数据库中添加相应的节点记录;添加节点树的时候,需要注意的是要把该节点的节点编号加入到该节点的data属性中.在数据库中加入节点记录的时候,节点编号和父节点编号都不能少,如果是第0层节点,那么该节点的父节点编号是'0'(这种情况你自己定义,我在这里设为'0')显示节点我写了一个通用函数来实现的删除 阅读全文

摘要： 关于递归函数下面的代码如果点击btn1按钮会返回什么值呢？procedure TForm1.btn1Click(Sender: TObject);begin ShowMessage(inttostr(test(1)));end;function TForm1.test(aI:integer): Integer;var i,iResult: Integer;begin i := aI+1; if i<10 then test(i) else iResult := i; Result := iResult;end;我希望它的能够返回'10',但是实际结果却是'2 阅读全文