habe das ganze nun so gelöst:
Delphi-Quellcode:
function TForm1.Pot(a: Real; b: Integer): Real;
var
i: Integer;
begin
Result := 1;
If b > 0 then
begin
For i := 1 to b do
begin
Result := Result*a;
end;
end
else
begin
For i := -1 downto b do
begin
Result := Result*a;
end;
Result := 1 / Result;
end;
end;
und es funktioniert^^
vielen Dank nochmal für die schnellen Antworten und Tipps =)