|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Арифметическое округление в Delphi 6.
Товарищи, как можно сократить и уменьшить до одной строки (иди одного действия след функцию округления:
Код:
begin Ext:=strtofloat(edit21.text); ExtCel:=(trunc(Ext)); if frac(Ext)>0.5 then ExtEnd:=ExtCel+1 else ExtEnd:=ExtCel; edit22.Text:=floattostr(ExtEnd); end; P.S. У меня Delphi 6 , стандартных функций арифм. округления нет Последний раз редактировалось Admin, 05.03.2010 в 11:40. |
#2
|
||||
|
||||
Выведи все действия в отдельную функцию, а в процедуре используй ее...
В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
||||
|
||||
а что в 6 дельфе нету round()? этож ппц
|
#4
|
|||
|
|||
Sorry.
Всем спасибо.
Ребято, я оказывается жесточайше ступил - забыл подключить модуль Math, поэтому и стандартный RoundTo у меня не получался. |
#5
|
||||
|
||||
Цитата:
|