DIV und MOD

[The-X]

Oder aber man nutzt folgende Funktionen
um DIV & MOD auch mit Real-Typen anwenden zu können:

Delphi-Quellcode:

function Real_Div(AZahl1,AZahl2:Extended):Integer;
begin
  Result := Trunc(AZahl1 / AZahl2);
end;

^^ Ersatz für DIV

Delphi-Quellcode:

function Real_Mod(AZahl1,AZahl2:Extended):Extended;
begin
  Result := AZahl1 - Trunc(AZahl1 / AZahl2) * AZahl2;
end;

^^ Ersatz für MOD