Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Округление переменной до 2 цифр [D5, Win95/98]

Rash © (2002-03-03 23:25:00)
Ламерский, конечно вопрос. Есть ли такая функция? Или все же надо через строку обработчик делать?

Rash (2002-03-04 19:38:00) [1]
Блин. Могла и сама догадаться. :)))

Большое спасибо!!!

Awex (2002-03-04 19:07:00) [2]
Да.... это вопрос уже задавали и отвечали на него пару десятков раз...... пора добавлять в факи.......

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

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;

lipskiy (2002-03-04 18:49:00) [3]
Первое, что пришло в голову:
x:= (round(x*100))/100;
Может быть и проще можно.

Rash (2002-03-04 18:15:00) [4]
Нужно в числе типа real оставить только две значащие цифры после запятой.
например: 2.547100 -> 2.550000

lipskiy (2002-03-04 00:43:00) [5]
Конкретизируй.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »