Nachkommastellen von Extended abschneiden um Integer zu erhalten

[Amateurprofi]

Zitat von Kostas:

Hat jemand eine Idee ich ich zuverlässig aus einem Extended mit 10 multiplizieren kann und danach evl. vorhandene Nachkommastellen abschneiden kann so dass ich einen Integer bekomme?

Delphi-Quellcode:

So vielleicht?
var 
   Value:Extended;
   IntValue:Integer;
Value:=24.1 * 10;
IntValue:=Trunc(Value+0.5);