Discussion :

[Vilukariok]

Une petite questionnounette:
Je ne comprend pas pourquoi ce code ne 'marche pas':

"nombre := roundto(nombre,-2);"

Que ce passe t' il derrière ce code?
Pourquoi il semblerait que ça ne fait rien?

[Aos]

je viens de le tester, il fonctionne impeccable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
var
nombre : double;
begin
  nombre:=1.546;
  nombre := roundto(nombre,-2);
  ShowMessage(floattostr(nombre));
end;

[Vilukariok]

Effectivement ton code marche bien.

Mon erreur venait du faite que je déclarai mon "nombre" comme un single
Apparemment ce n'est pas pareil

Donc merci a toi