| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как округлить число до 2-го знака после запятой? [D7, 95/98]
greg333 © (2006-04-13 14:42:00)
mlm68 (2006-04-13 22:40:00) [1]x:=round(x*100)/100;
sicilla (2006-04-13 20:50:00) [2]Пишешь функцию
function TForm1.sts(sing: single; dig: byte): string;
begin
str(sing:dig:dig,result);
end;
Ее вызов:label72.Caption := sts(cur/1024,2);
здесь 2 - разрядность после запятой.
Anatoly Podgoretsky (2006-04-13 14:51:00) [3]Если числа с плавающей запятой, то сложная задача, большинство из них не округляются, просто невозможно представить.
EvS (2006-04-13 14:47:00) [4]RoundTo
| |
