S szhcracker Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-19 #23 顶一个，有一个删除目录的函数就用了递归，很经典的。
X xingxin00 Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-19 #24 求阶乘是最典型的例子了。 function TForm1.NFac(N:Integer):Integer; begin if N=1 then Result:=1 else Result:=NFac(N-1)*N; end; 说明白点就是自己调用自己，当条件成立或不成立是返回结果。
求阶乘是最典型的例子了。 function TForm1.NFac(N:Integer):Integer; begin if N=1 then Result:=1 else Result:=NFac(N-1)*N; end; 说明白点就是自己调用自己，当条件成立或不成立是返回结果。
