Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Nick_serov © (2006-04-05 23:04:00)
Товарищи кодеры!

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

SergP (2006-04-06 00:37:00) [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);

Nick_serov (2006-04-06 00:27:00) [2]

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

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

SergP (2006-04-06 00:17:00) [3]
uses math

...

a:=RoundTo(a,1);

Nick_serov (2006-04-06 00:15:00) [4]

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

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

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

SergP (2006-04-06 00:12:00) [6]

> Nick_serov (06.04.06 00:06) [6]

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

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

Nick_serov (2006-04-06 00:11:00) [7]

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

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

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

Anatoly Podgoretsky (2006-04-06 00:09:00) [8]
Зачем нужен велосипед, ты справку по RoundTo посмотрел?

Nick_serov (2006-04-06 00:06:00) [9]

> 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

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

SergP (2006-04-05 23:58:00) [10]
((n+5) div 10)*10

Anatoly Podgoretsky (2006-04-05 23:30:00) [11]
Nick_serov (05.04.06 23:25) [2]
В справке есть пример именно того типа, что тебе нужен.

Yegorchic (2006-04-05 23:29:00) [12]
Это функция. И math в uses надо прописать...

Nick_serov (2006-04-05 23:25:00) [13]
пардон, не указал... число находится в Edit'e.
Либо я не заметил там этого свойства, либо просто торможу...

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

Anatoly Podgoretsky (2006-04-05 23:09:00) [14]
RoundTo

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »