Проблема округления числа

← →
Nick_serov (2006-04-05 23:04) [0]

Товарищи кодеры!

Подскажите пжалста, как можно округлить число до десятой (например было 13457, а станет 13460) ???

← →
Anatoly Podgoretsky © (2006-04-05 23:09) [1]

RoundTo

← →
Nick_serov (2006-04-05 23:25) [2]

пардон, не указал... число находится в Edit"e.
Либо я не заметил там этого свойства, либо просто торможу...

Можно поподробней???

← →
Yegorchic © (2006-04-05 23:29) [3]

Это функция. И math в uses надо прописать...

← →
Anatoly Podgoretsky © (2006-04-05 23:30) [4]

Nick_serov (05.04.06 23:25) [2]
В справке есть пример именно того типа, что тебе нужен.

← →
SergP © (2006-04-05 23:58) [5]

((n+5) div 10)*10

← →
Nick_serov (2006-04-06 00:06) [6]

> SergP © (05.04.06 23:58) [5]

пробую так:

b10 := strtofloat(edit6.Text); edit6.Text := floattostr(((b10+5) div 10)*10);

ругается в ответ:
[Error] Unit1.pas(171): Operator not applicable to this operand type

что делаю не так??? или я тебя не правильно понял?

← →
Anatoly Podgoretsky © (2006-04-06 00:09) [7]

Зачем нужен велосипед, ты справку по RoundTo посмотрел?

← →
Nick_serov (2006-04-06 00:11) [8]

> Anatoly Podgoretsky © (06.04.06 00:09) [7]
>
> Зачем нужен велосипед, ты справку по RoundTo посмотрел?

Если ты имеешь ввиду справку на сайте - ввел в поиске RoundTo и..... ничего :(

По вашем запросу "RoundTo" ничего не найдено. Попробуйте изменить/упростить запрос.

← →
SergP © (2006-04-06 00:12) [9]

> Nick_serov (06.04.06 00:06) [6]

Я ж думал что тебе целые числа нужно округлять...

А так действительно смотри RoundTo

← →
Anatoly Podgoretsky © (2006-04-06 00:13) [10]

Nick_serov (06.04.06 00:11) [8]
Кроме справки на сайте есть еще и справка в Дельфи, вот эту и смотри.

← →
Nick_serov (2006-04-06 00:15) [11]

> Anatoly Podgoretsky © (06.04.06 00:13) [10]
>
> Кроме справки на сайте есть еще и справка в Дельфи, вот
> эту и смотри.

У меня дистриб Делфи глючный попался БЕЗ СПРАВКИ!
Плиз, если у тебя есть - выложи тут пример!

uses math

...

a:=RoundTo(a,1);

← →
Nick_serov (2006-04-06 00:27) [13]

> SergP © (06.04.06 00:17) [12]
>
> uses math
>
> ...
>
> a:=RoundTo(a,1);

Ура, получилось, большое человеческое псиииба!

> Nick_serov (06.04.06 00:06) [6]
>
> > SergP © (05.04.06 23:58) [5]
>
>
> пробую так:
>
> b10 := strtofloat(edit6.Text);
> edit6.Text := floattostr(((b10+5) div 10)*10);
>
> ругается в ответ:
> [Error] Unit1.pas(171): Operator not applicable to this
> operand type
>
> что делаю не так??? или я тебя не правильно понял?

((b10+5) div 10)*10) - это для случая:

var b10:integer; ... b10 := strtoint(edit6.Text); edit6.Text := inttostr(((b10+5) div 10)*10);

Проблема округления числа Найти похожие ветки