Скачать: CL | DM;

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

← →
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]
>
> Кроме справки на сайте есть еще и справка в Дельфи, вот
> эту и смотри.


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

---

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

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);


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

---

← →
SergP ©   (2006-04-06 00:37) [14]

> 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);


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.026 c