Extended in Integer Schreiben!

[Rifman]

Zitat von Klaus01:

.. so würde es auch gehen:
Nachkommaanteil:= trunc((frac(FloatValue)*1000);

Zitat von DelphiHelp:

Returns the fractional part of a real number.

function Frac(X: Extended): Extended;

Description

The Frac function returns the fractional part of the argument X.

X is a real-type expression. The result is the fractional part of X; that is, Frac(X) = X - Int(X).

Grüße
Klaus

Vielen Dank, und wieder was neues gelernt!