Bonjour !

Je veux arrondir un décimal à deux chiffres après la virgule pour éviter le X.000000000001 qu'il me renvoie.
J'ai regardé la FAQ et je trouve la méthode un peu farfelue...
Il y a une fonction en Delphi qui n'existe pas sur Lazarus, que j'aimerais bien avoir :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;
Description :
  • Appelez RoundTo pour arrondir AValue à la puissance de dix spécifiée.
  • AValue est la valeur à arrondir.
  • ADigit indique la puissance de dix à laquelle vous voulez arrondir AValue. Cela peut être toute valeur entre -37 et 37 (compris).
  • RoundTo utilise l'arrondi "de banque" pour déterminer comment arrondir la valeurs qui se trouvent exactement au milieu des deux valeurs ayant le nombre de chiffres significatifs souhaité. Cette méthode arrondit à un nombre pair dans le cas où AValue n'est pas plus proche d'une des deux valeurs.