| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать количество знаков после запятой?
arhis © (2006-09-21 16:57:00)узнаю так:
met:=2;
PrBuf:=(Deal.Price-Int(Deal.Price))*10;
While true do
begin
PrBuf:=PrBuf*10;
if (PrBuf-Int(PrBuf))=0 then break;
inc(met);
end;
работает кроме случая 100.023
В этом случае релультат вычитания аномален.
Может это вообще можно както прощще сделать?
arhis (2006-09-21 17:02:00) [41]грубо говоря на третьей итерации получаем нечто в виде 23-23=0.0000..000123123
arhis (2006-09-21 17:01:00) [42]мне нужно количество но не меньше двух. Это для печати официального документа
Ketmar (2006-09-21 17:00:00) [43]можно. считать, что их всегда, например, 8.
| |
Страницы: 