递归的方法画树形结构

在做一个项目的时候，多次用到了递归的方法画树形结构，在网上search了一下，找到的大多都是使用record的方法做的，在csdn的一个帖子上发现了篇不用record方法的递归画树形结构的帖子，整理了一下，和大家共享。
//递归方法画树
procedure Addtree(theNode: TTreeNode; parentID:integer; mytree:TRzCheckTree; conn:TAdoconnection);var
I:integer; qry:TAdoquery; node: TTreeNode; StrSql: String;begin
//根据业务规则组织ｓｑｌ语句
StrSql := 'Select cUnitCode, cShortName, Id, nFatherID From Report_UnitTable Where IisTrans = 1'; StrSql := StrSql + ' And nFatherID = ' + IntToStr(parentID) + ' order by cOrderby, nFatherID ';
Qry:=Tadoquery.create(nil); qry.Connection:=conn; qry.sql.clear; qry.sql.add(StrSql); qry.active:=true;
qry.first; for i:=0 to qry.recordcount-1 do begin
node := mytree.Items.addchild(theNode, Trim(qry.FieldByName('cunitcode').AsString)+Trim(qry.FieldByName('cShortName').AsString)); Addtree(node, qry.fieldbyname('Id').asinteger, mytree, conn); //递归 qry.Next; end;
qry.free;end;
　　//调用的时候，要先给nFatherID赋值。
//调用递归方法画树
AddTree(nil, FatherID, RzCheckTree1, DM.ADOConnection1);