Probleme mit Bereichsüberprüfung

[Muetze1]

Na einfach abfangen:

Delphi-Quellcode:

var
tmp: Int64;
begin
  tmp := Round(EnsureRange(AlterWert / Skalierung, Low(Integer), MaxInt);

  NeuerWert := Min(tmp, MaxInt); 
end;