Extended in Integer Schreiben!

[Rifman]

Hallo,
gibt es eine Funktion die mir einen extended zu Integer umwandelt?
Wenn ich das so mache:

Delphi-Quellcode:

Var
FloatValue : Extended;
IntegerValue ,Vorkommaanteil ,Nachkommaanteil: Integer;
...

FloatValue := 123,456;

Vorkommaanteil := Trunc(123,456);

Nachkommaanteil:=  Int((FloatValue - Vorkommaanteil)*1000);

Bekomme ich eine Fehlermeldung, und zwar dass ich versuche eine Extended in Integer zu speichern,
Wie kann ich das am besten machen?

Danke

[alzaimar]

Schau Dir mal genau die Rückgabetypen der von dir benutzten Funktionen 'Trunc' und 'Int' an. Cursor rauf und F1. :zwinker:

[Rifman]

Achso,Trunc() gibt einen Integer zurück und Int() einen Real.Ok, und mit welcher Funktion kann man das am besten machen?

[mkinzler]

Je nach Format der Zielvariable

[Rifman]

In meinem Fall ist die Zielvariable ein 3 stelliger Integer.

[Rifman]

Ok, anscheinend gibt es keine Funktion, die das macht.

[mkinzler]

Was soll den Passieren, wenn die Zahl größer als 999 ist?

[Rifman]

Die Variable soll dann auf null zurücksetzt werden.

[mkinzler]

Dann musst du dir eine eigene Funktion dafür schreiben.

[Klaus01]

.. so würde es auch gehen:

Delphi-Quellcode:

Nachkommaanteil:=  trunc((frac(FloatValue)*1000);

Zitat:

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