utility.pas

来自「Delphi深度探索,Delphi深度探索（第二版）」· PAS 代码 · 共 28 行

{-----------------------------------------------------------------------------
 Unit Name: Utility
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   XP测试框架DUnit示意例子
 History:
            2003-4-6 创建本单元  
-----------------------------------------------------------------------------}


unit Utility;

interface

function Factorial(N:Word):Integer;

implementation

function Factorial(N:Word):Integer;
begin
  if N=0 then
    Result:=1
  else
    Result:=N*Factorial(N-1);
end;

end.