Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ИЗВИНЯЮСЬ Есть число типа DOUBLE.


Kat ©   (2004-10-19 11:26:00) 

ИЗВИНЯЮСЬ Есть число типа DOUBLE. Как определить после запятой нули или нет. Т.е   1.200 после запятой не ноль, а если 1.000 то ноль.
Спасибо!


-=SS=-   (2004-10-19 11:49:00) [1]

If Frac(A)>(0.0999) then ... тогда ноль


TUser   (2004-10-19 11:42:00) [2]

if ... - trunc(...) = 0 then
Но подумать надо о неточности машинных вычислений


Jay   (2004-10-19 11:32:00) [3]

number - Round(number) -> остаток;
Round(остаток * 10) -> получишь число после запятой, а дальше что хочешь, то с ним и делай


1008   (2004-10-19 11:32:00) [4]

С этого и надо было начинать.
Как вариант преобразовать в строку, найти в строке разделитель (точку) и проверить равен ли символ после разделителя "0"


Наверх

Титульная страница Поиск, карта сайта Написать письмо