Форум: "Основная";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];

Вниз

Округление переменной до 2 цифр   Найти похожие ветки 

← →
Awex   (2002-03-04 19:07) [4]

Да.... это вопрос уже задавали и отвечали на него пару десятков раз...... пора добавлять в факи.......

Можно универсальней:

const
RoundArray: array[0..6] of Longint = (1, 10, 100, 1000, 10000, 100000, 1000000);

function RoundEx(var dValue: double; var aDecimals: integer): double;
begin
if (aDecimals > 6) or (aDecimals < 0) then
Result := dValue
else
Result := Round(dValue * RoundArray[aDecimals]) / RoundArray[aDecimals];
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c