Округление в Delphi

← →
phantom2040 © (2002-03-06 15:10) [0]

Мастера помогите каким образом можно округлить число типа Real, до двух знаков после запятой??
Вылетело из головы

← →
MBo © (2002-03-06 15:20) [1]

d:=round(d*100)/100;

← →
drpass © (2002-03-06 15:22) [2]

Для лентяев:
d:=RoundTo(d, -2);

← →
IronHawk © (2002-03-06 15:31) [3]

CurrToStrF(X,ffFixed,2);
- это до 2-х символов
CurrToStrF(X,ffFixed,3);
а это до 3-х !!!

← →
DieHard © (2002-03-06 16:08) [4]

2IronHawk: и что же мы получим? :)

← →
Alx2 © (2002-03-06 16:12) [5]

Число в строке :)
Причем округленное

← →
IronHawk © (2002-03-06 16:21) [6]

> DieHard ©

Именно то чё хотим !

> Alx2 © (06.03.02 16:12)
> Число в строке :)
> Причем округленное

:-))) !
Да, между прочим !

← →
DieHard © (2002-03-06 16:31) [7]

А автор просил не то, чё хотим, а число (типа Real)...

← →
Третейский Судья (2002-03-06 16:36) [8]

Автор просил "залететь" ему обрабно в голову собдержимое букваря по Паскалю. За неимением такой физической возможности объявляем
Break
Пока не заклинились в
Repeat Until True

:)
этот цикл отработается один раз...

> Пока не заклинились в
> Repeat Until True

Repeat Until false

Короче, все-же заклинились :)

← →
Третейский Судья (2002-03-06 16:48) [12]

Кто о чем ... Вы о логике Паскаля, а я о логике беседы :)

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