Округение real

← →
Grinder © (2004-01-19 19:07) [0]

Мастера, не бейте :) Напомните как вывести число типа real с 2 мя знаками после запятой. Забыл. Как в паскале помню, а в делфях забыл :)

← →
Тимохов © (2004-01-19 19:09) [1]

Точно также как в паскале.

← →
YuRock © (2004-01-19 19:09) [2]

RoundTo(r, -2);

← →
Grinder © (2004-01-19 19:18) [3]

RoundTo это да. Но оно выводит полностью "хвост" всё равно. В паскале было a:0:2 и число округлялось без хвостов.

← →
Тимохов © (2004-01-19 19:20) [4]

Что такое хвост?
А вывести... блин, прочел "округлить"
format("%.2f", [x]);

где x имеет тип число с плавающей точкой.

function RoundFloatEx(AValue : Extended; ADigits : Integer): Extended; begin Result := StrToFloat(Format("%." + IntToStr(ADigits) + "f", [AValue])); end;

Дальше выводишь.
Все равно - Format-ом. ;)

Округение real Найти похожие ветки