Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Округлении чисел

Автор: Lence 13.10.2006, 15:04

Сталкнулся с проблемой, округляются число не совсем так как хотелось бы
делаю так

Код


uses math
...

Edit1.Text:= FloatToStr(RoundTo(StrToFloat(Edit1.Text),1));

все замечательно округляется, но нужно сделать так чтоб число всегда округлялось в большую сторону
например если ввести число 2020 то округлится до 2000, а нужно чтоб было 2100

Автор: Dremlin 13.10.2006, 15:22

Note: The behavior of RoundTo can be affected by the Set8087CW procedure or SetRoundMode function.

Код


uses math
...

SetRoundMode(rmUp);
Edit1.Text:= FloatToStr(RoundTo(StrToFloat(Edit1.Text),2));

Автор: Lence 13.10.2006, 15:37

Не работает ....
все равно в меньшую сторону округляет

Цитата(Dremlin @ 13.10.2006, 15:22

)

Note: The behavior of RoundTo can be affected by the Set8087CW procedure or SetRoundMode function.код Pascal/Delphi1:2:3:4:5:uses math...SetRoundMode(rmUp);Edit1.Text:= FloatToStr(RoundTo(StrToFloat(Edit1.Text),2));

Автор: Zero 13.10.2006, 17:37

Цитата(Lence @ 13.10.2006, 16:37

)

Не работает ....
все равно в меньшую сторону округляет

У тебя руки под х** заточены.

Всё правильно он написал... Проверь ещё раз, всё ли правильно ты написал в коде.

Автор: Lence 13.10.2006, 18:05

Цитата(Zero @ 13.10.2006, 17:37

)

Цитата(Lence @ 13.10.2006, 16:37 )Не работает .... все равно в меньшую сторону округляетУ тебя руки под х** заточены.Всё правильно он написал... Проверь ещё раз, всё ли правильно ты написал в коде.

балин .. вот уж и не думал что так ступлю.....
точно бага была - всего одна строчка и все равно сделал ошибку ... поторопился - тестил функциюю simpleroundto так и оставил ее ... ответ увидел на радостях вставил - и шиш ....

Спасибо всем !!!! smile