Spezielle Festkommazahl?

[3_of_8]

Nein, das sagte ich bereits. Du musst die Rechenfunktionen anders implementieren.

Am einfachsten ginge das so:

Delphi-Quellcode:

function FixedMul(a, b: SmallInt): SmallInt;
var aex, bex: Extended;
begin
aex:=1/a;
bex:=1/b;
result:=round(1/(aex*bex));
end;

function FixedDiv(a, b: SmallInt): SmallInt;
var aex, bex: Extended;
begin
aex:=1/a;
bex:=1/b;
result:=round(1/(aex/bex));
end;