Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language
    Delphi
    by sakura, 16. Jan 2003
  Dass stimmt schon, Integer rechnet sich aber besser auf 32-Bit CPUs als Integer, vor allem, wenn man auf Int64 rausgeht ;)
• Forum: Object-Pascal / Delphi-Language
    Delphi
    by sakura, 16. Jan 2003
  Gibt es nicht, aber ist doch ganz leicht :Dfunction 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;