Gibt es nicht, aber ist doch ganz leicht
Delphi-Quellcode:
function NFak(Val: Integer): Int64;
begin
if Val < 0
then
raise Exception.Create('
Val muss größer/gleich 0 sein.');
Result := 1;
repeat
Result := Result * Val;
Dec(Val);
until Val <= 1;
end;