Extended to Integer, samtidig med begrænsning af decimaler

i := trunc(x);

runder ned.

i := trunc(x + 0.5);

eunder af.

Jeg mener at Delphi også har

i := round(x);

Så du kan skalere til f.eks. 2 decimaler via f.eks.

x = trunc(x * 100 + 0.5) / 100;

OK ?

En Integer har ingen decimaler så når du har "ændret Extended til Integer" så har du ikke brug for "samtidig/efterfølgende" begrænse antallet af decimaler !?

Du må lige forklare din "Extended til Integer med decimaler" lidt bedre, for som pellelil påpeger, så kan det ikke lade sig gøre.

Og så alligevel; lad os antage at du vil gemme et decimaltal i en integer med 3 decimaler. Det kan du gøre ved at gange det med 1000 og så dividere tilsvarende med 1000 når du skal bruge tallet (eller konvertere til streng og indsætte komma så det passer med decimalerne).

var
  i : integer;
begin
  i := trunc(pi * 1000 + 0.5); // pi med tre decimaler og afrunding.
  // Altså ligesom arne_v's bare uden at dividere bagefter
end;