Nur x Nachkommastellen von Float

[Uwe Raabe]

Das geht dann aber auch etwas schlanker:

Delphi-Quellcode:

uses
  System.Sysutils;

...

function plusepsilone(const e : extended):extended;
begin
   Result := e;
   Result.Frac := Result.Frac+1;
end;

Könnte man auch noch als inline deklarieren.