| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Округление вещественных чисел [D5, Win95/98]
antonioxxx © (2002-09-17 19:02:00)Уважаемые программисты! Подскажите, как вещественное число округлить до определённого знака после запятой? Спасибо!
777 (2002-09-17 21:50:00) [1]
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;
var
LFactor: Double;
begin
LFactor := IntPower(10, ADigit);
Result := Round(AValue / LFactor) * LFactor;
end;
Алексей Ким (2002-09-17 20:08:00) [2]2777(>777)ф1
2MegaBass не могу :( исходников нету, когда д инсталлировал места
мало было :( ну ладна перебьюсь...
777 (2002-09-17 20:04:00) [3]uses ...Math;
Caption:=FloatToStr(RoundTo(123,237,-2));
А Format здесь причем?
MegaBass (2002-09-17 20:04:00) [4]посмотри в Math код RoundTo
я вообще сомневаюсь что RoundTo работает с Format
Алексей Ким (2002-09-17 20:01:00) [5]2MegaBass>случайно не знаешь что вызывает что? RoundTo->Format или
наоборот?
MegaBass (2002-09-17 19:57:00) [6]RoundTo()
| |
