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       ---------------
			 J'ai un totem d'immunité pour la modération : je suis d'extrême droite. Chat perché !
    |