Какая есть функция для округления чисел???

[Dr_Grizzly]

Всем привет! Склероз замучал Есть переменная типа Real в ней результат дробного числа 1.5472643347 надо округлить до сотых Именно округлить а не отрезать хвост Подскажите.

[Duncon]

Код: Выделить всё

function Rounder(var Value: Double; Decimals: Integer): Double;
 var
   j: Integer;
   A: Double;
 begin
   A := 1;
   case Decimals of
     0: A := 1;
     1: A := 10;
     else
       for j := 1 to Decimals do
         A := A * 10;
   end;
   Result := Int((Value * A) + 0.5) / A;
 end;


 procedure TForm1.Button1Click(Sender: TObject);
 var
   Value: Double;
 begin
   Value := 23.56784;
   //Result is 23.57 
  label1.Caption := FloatToStr(Rounder(Value, 2));
 end;

[/color]

[Игорь Акопян]

если надо просто отобразить, то проще

Код: Выделить всё

label1.caption := Format('%.2f', [23.56784]);

[OTELLO]

А вообще функции есть вшитые

* Round- до ближайшего целого
* Trunc - в сторону нуля
* Ceil - в сторону увеличения
* Floor - в сторону уменьшения

[LAngel]

ещё:
RoundTo(Что, сколько знаков после запятой)

[YurikGL]

а еще можно
round(число*100)/100

[Madshall]

еще можно floattostrf(), а потом strtofloat() и все