javascript_prototypes.pp

来自「Delphi脚本控件」· PP 代码 · 共 8 行

function Fact(N: Integer): Integer;
begin
  if N = 1 then
    result := 1
  else
    result := N * Fact(N - 1);
end;