Hallo PBiggi,
solange du wieder mal deine Math-
Unit suchst kannst du das hier benutzen:
Delphi-Quellcode:
function Power(base: integer; exponent: byte): Int64;
begin
if exponent = 0 then Result := 1
else begin
Result := Power(base, exponent shr 1);
Result := Result * Result;
if Odd(exponent) then
Result := Result * base;
end;
end;
Freundliche Grüße vom marabu