Ich mach es auch gern mal kurz und schmerzlos
Delphi-Quellcode:
function LgX(base, number: Double): Double; //inline;
begin
if (base <= 0.0) or (number <= 0.0) then
System.Error(reInvalidOp);
Result := Ln(number) / Ln(base);
end;
Wenn die
Unit SysUtils eingebunden ist, dann wird hier eine
Exception EInvalidOp "Ungültige Gleitkommaoperation." geworfen.