Nur x Nachkommastellen von Float

[Uwe Raabe]

Da digit ein Integer ist, bietet sich auch IntPower an:

Delphi-Quellcode:

function GetDigits(const AValue: Double; Digits: Integer): Integer;
begin
  Result := Trunc(Frac(AValue)*IntPower(10, Digits));
end;