Maldoror Carpe diem, tu vas mourir | Bon ben voilà, j'ai fait comme ça :
Code :
- fonction Arrondi(NumeriqueEnChaine : String) : Longint ;
- var
- PartieEntiere, PartieDecimale : String ;
- i : Integer ;
- begin
- PartieEntiere := Copy(NumeriqueEnChaine, 1, (pos(DecimalSeparator, MaNumeriqueEnChaine) -1)) ;
- PartieDecimale := Copy(NumeriqueEnChaine, (pos(DecimalSeparator, MaNumeriqueEnChaine) +1), 2) ;
- i := StrToInt(PartieDecimale) ;
- Result := StrToInt(PartieEntiere) ;
- if i >= 50 then
- Result := Result + 1 ;
- end;
|
Y avait peut-etre plus simple, mais bon ça marche ---------------
Nous ne sommes rien, nous n'allons vers rien. Profitons au moins du voyage !
|