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




Вниз

Округление переменной до 2 цифр 


Rash   (2002-03-03 23:25) [0]

Ламерский, конечно вопрос. Есть ли такая функция? Или все же надо через строку обработчик делать?



lipskiy   (2002-03-04 00:43) [1]

Конкретизируй.



Rash   (2002-03-04 18:15) [2]

Нужно в числе типа real оставить только две значащие цифры после запятой.
например: 2.547100 -> 2.550000



lipskiy   (2002-03-04 18:49) [3]

Первое, что пришло в голову:
x:= (round(x*100))/100;
Может быть и проще можно.



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;



Rash   (2002-03-04 19:38) [5]

Блин. Могла и сама догадаться. :)))

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




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




Наверх





Память: 0.72 MB
Время: 0.028 c
3-57273           Gromozeka             2002-02-15 07:13  2002.03.18  
FormCreate


1-57420           Лана Розанова         2002-03-02 21:00  2002.03.18  
Конвертация


1-57442           Компонент             2002-03-03 22:39  2002.03.18  
Подскажите, есть ли компонент, чтобы сделать свой собственный Object Inspector?


1-57365           Анонимщик             2002-03-01 14:07  2002.03.18  
Как сделать хинт, которыйбы перемещался вместе с мышиным курсором и был под ним?


1-57439           Plumbum               2002-03-03 00:27  2002.03.18  
Как конвертировать компоненту из D4 в D6?